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

Задача четвертая...............
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы