Ответы на вопрос:
Const n = 7; var a: array[1..n]of integer; i: integer; s,sn,p,pn: real; begin s: =0; sn: =0; p: =1; pn: =1; for i: = 1 to n do begin a[i]: =random(7)+1; write(a[i],' '); if a[i] mod 2 = 0 then begin s: =s+a[i]; p: =p*a[i]; end else begin sn: =sn+a[i]; pn: =pn*a[i]; end end; writeln; writeln('сумма чётных элементов =',s); writeln('произведение чётных элементов =',p); writeln('сумма нечётных элементов =',sn); writeln('произведение нечётных элементов =',pn); end.
Популярно: Информатика
-
larsab16.03.2020 20:36
-
Ардак0000000031.05.2020 12:17
-
fullwalkgroundEger04.04.2021 13:22
-
Polina21213.11.2022 19:45
-
Xsenia27407.11.2020 10:04
-
Darya78928.12.2020 13:43
-
zalehorosaj09.12.2020 21:08
-
нэлли198702.01.2020 19:15
-
TheEnder08.09.2022 01:58
-
Torquis16.02.2021 21:44