Ответы на вопрос:
1. program Hello;
var i,j:integer; A:array [1..10, 1..10] of integer;
begin
for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);
end.
2. program Hello2;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;
writeln(c);
end.
3. program Hello3;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;
for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;
end.
Популярно: Информатика
-
akhdogru15.03.2023 07:14
-
wutter9906.04.2021 21:21
-
kurzaevaelenka17.09.2022 06:28
-
Maagistr01.08.2020 23:28
-
Артём122877716.02.2020 21:13
-
Sasho232505.05.2021 22:42
-
настюша29020411.01.2023 14:11
-
F1Na1Ik24.04.2023 04:06
-
aalenka47111.12.2022 23:07
-
2002anna221.11.2022 01:21