Есть ответ 👍

Построить алгоритмы ( если есть возможность нарисуйте на листочке и фото ) 4 написать программу, которая по данному натуральному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января – новый год, 7 января – рождество) или сообщение, что праздников нет. дана последовательность из м чисел. все отрицательные среди них числа возвести в квадрат и найти их сумму.

150
272
Посмотреть ответы 2

Ответы на вопрос:


5

program sumseq;

 

{$apptype console}

 

uses

  sysutils;

//const m: integer  ;

var

  i, j, m, s: integer;

  n: array of integer;

begin

  s: =0;

  writeln(m);

  writeln('vvedite m');

  readln(m);

  setlength(n,m);

  for i: =0 to m do

      begin

          j: =random(10);

          if j< 5

                then n[i]: =-1*j

                else n[i]: =j;

          write(n[i], ' ')

      end;

  writeln;

  writeln('to continue push > > enter');

  readln;

 

  for i: =0 to m do

      begin

          if n[i]< 0

              then s: =s+sqr(n[i])

      end;

    writeln('s=',s);

    readln

 

 

  { todo -ouser -cconsole main : insert code here }

end.


Для кругозора, именно для долговременного хранения данных  в серьезных организациях используют стримеры (ленточные накопители). надежно и дорого а принцип как у аудиокассеты.

Популярно: Информатика