mixakov05

30.12.2021 12:47 •  Информатика

Нужно составить описание к программе 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 2< > 0 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.