Ответы на вопрос:
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.
Популярно: Информатика
-
Nasya15605.02.2020 03:58
-
Posrednikova0413.10.2022 05:24
-
Юлёк143222.05.2022 20:53
-
razdor1996Rqzdor17.11.2022 01:53
-
майнкрафтерчитак24.02.2023 03:57
-
Патригг23.02.2022 00:51
-
СашаВай114.06.2020 11:52
-
софи25319.06.2020 12:10
-
КекЛолКарвалол06.12.2020 16:07
-
Хантенир1112.05.2022 14:31