Ответы на вопрос:
Program n1; const nn=30000; var m: array [1..nn,1..nn] of integer; i,j,k,n: integer; begin k: =0; writeln('введите n'); readln(n); writeln('введите массив'); for i: =1 to n do for j: =1 to n do begin read(m[i,j]); if (m[i,j] mod 3 =0) then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
шрвлап07.04.2021 23:32
-
Ildar29807.11.2020 12:07
-
Nikyyysik10.09.2021 19:10
-
tri024.02.2020 06:01
-
Кристина171802.02.2023 07:54
-
rubcovayana11.08.2021 23:26
-
Svetbor0409.09.2022 23:09
-
zeka2731.10.2020 13:26
-
tema15233110.02.2020 01:11
-
RAYDEN0202.05.2021 17:32