Question

Дана матрица размера 5х10. Найти максимальное значение в каждом столбце.

Answer 1

Готово,числа рандомные ....

59e58695ab64b3b1785a5e9faf7ee632.pas

Answer 2

Program z1;
var a:array[1..100,1..100] of integer;
I,j,max:integer;
Begin
for I:=1 to 5 dp
For j:=1 to 10 do
Read(a[I,j]);
For j:=1 to 10 do
Begin
Max:=a[1,j];
For I:=2 to 5 do
if a[i,j]>max then max:=a[i,j];
Writeln(a[i,j]);
End;
End.

59e58695ab64b3b1785a5e9faf7ee632.pas

Answer 3

Program z1;
var a:array[1..100,1..100] of integer;
i,j,max:integer;
Begin
for i:=1 to 5 do
for j:=1 to 10 do
Read(a[i,j]);
For j:=1 to 10 do
Begin
Max:=a[1,j];
for i:=2 to 5 do
if a[i,j]>max then max:=a[i,j];
Writeln(a[i,j]);
End;
End.

Answer 4

У вас не правильно

Answer 5

почему