Const n = 3;
m = 3;
var a: array[1..n, 1..m] of integer;
b: array[1..m] of integer;
i,j,k,maxm:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
write('A[',i,',',j,']= ');
readln (a[i,j]);
if (a[i,j] >= 10)and (a[i,j]<=20) then <br> k:=k+1;
if b[j]< a[i,j] then b[j]:=a[i,j];
end;
end;
writeln('Количество элементов [10,20] ', k);
for i:=1 to n do writeln('Столбец №',i,' макс = ',b[i]);
for i:=1 to n do begin
for j:=1 to m do begin
write(a[i,j]:5);
end;
writeln;
end;
end.
Тестовое решение:
A[1,1]= 10
A[1,2]= 11
A[1,3]= 12
A[2,1]= 5
A[2,2]= 6
A[2,3]= 7
A[3,1]= 20
A[3,2]= 3
A[3,3]= 25
Количество элементов [10,20] 4
Столбец №1 макс = 20
Столбец №2 макс = 11
Столбец №3 макс = 25
10 11 12
5 6 7
20 3 25