Question

Задача четвертая...............

Answer 1

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
        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