Информатика

Германыч

22 июля, 04:12

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

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.