Ответы на вопрос:
Const n: =30(любое значение); var a: of integer; begin for i: =1 to n do begin write ('a='); read (a[i]); end; c: =0; for i: =1 to n do begin if a[i] mod 3=0 then begin c: =c+1; end; end; write (c); end.
Популярно: Информатика
-
bek3404.06.2022 07:41
-
bogdankavolev906.04.2021 15:38
-
УмникРазумник22815.10.2020 07:46
-
бббб929.08.2020 14:56
-
Ganifa50525.05.2021 03:10
-
катя18423.03.2021 19:26
-
Kylp19.01.2022 13:16
-
Дахич111.06.2021 18:09
-
krutikovaelizaozax2f01.02.2021 10:44
-
Haesiy01.06.2022 03:41