Дана матрица размера 5х10. Найти максимальное значение в каждом столбце.
Дана матрица размера 5х10. Найти максимальное значение в каждом столбце.
Гость
Ответ(ы) на вопрос:
ГостьГотово,числа рандомные ....
Гость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.
Не нашли ответ?
Похожие вопросы