Ответы на вопрос:
Const n=10; var a: array[1..n] of integer; s,p,k,i: integer; begin s: =0; p: =1; randomize; for i: =1 to n do begin a[i]: =random(100); if (a[i]> 0) and (a[i] mod 3 =0) then k: =k+1; p: =p*a[i]; s: =s+a[i]; write(a[i], ' ') end; writeln('сумма = ',s); writeln('произведение = ',p); writeln('количество положительных и кратных 3-м = ',k); end.
Популярно: Информатика
-
mashamariya1111126.06.2021 07:04
-
lukingrishal02.06.2022 17:55
-
alenagerasimov123.07.2021 14:31
-
hazret08.06.2023 23:00
-
пушокс10.06.2020 00:10
-
danyakarpik13.06.2020 00:01
-
Pomogalka22812317.06.2023 01:25
-
artur1991200013.05.2022 23:06
-
raviole1983oyfuky05.02.2021 09:29
-
Жансулу91919101.01.2022 14:47