Продолжение 4. Входной параметр: 12 Школа 321 Весна 456 1025 Выходные параметры: 1 Не могу 3 Не могу 4 1 5. Входные параметры: Цветок 12 Искусство Дом 47 Бескомпромиссный Выходной параметр: Не могу Не понимаю о Не могу Не понимаю Й 6. Входной параметр: 46 Помидор 11 Овощ Отворот Эксперимент Выходной параметр: Не понимаю 2 Не понимаю 2 3 Не могу 7. Входные параметры: 1237 10025 4 814 Школа Выходное параметры: 9 2 Не могу 1 Не понимаю

Задание 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.