Информатика

Альбин

29 сентября, 11:55

Нужно составить описание к программе

program pr1;

const n=5;

var a:array[1 ... n] of integer;

i, s1, s2:integer;

begin

randomize;

s1:=0;

s2:=0;

for i:=1 to n do begin

a[i]:=random (20) - 8;

writeln (a[i]:4,' Порядковый номер ', i);

end;

writeln;

for i:=1 to n do begin

if i mod 20 then s1:=s1+sqr (a[i]) * a[i];

if i mod 2=0 then s2:=s2+sqr (a[i]);

end;

writeln ('Сумма 1=', s1);

writeln ('Сумма 2=', s2);

end.