Нужно составить описание к программе 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.
121
413
Ответы на вопрос:
Популярно: Информатика
-
ImmortalSpirit25.03.2023 07:30
-
123296409.06.2023 09:17
-
123настюша32110.11.2021 09:32
-
SonicAndDash07.03.2023 09:47
-
darina246817.01.2022 20:00
-
DevochkaYmnichka04.07.2020 01:34
-
bodnari2121bodn07.09.2022 19:50
-
huxgehd26.04.2022 16:46
-
manya4804.06.2023 01:38
-
Koki200626.10.2021 02:41