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

Исправьте ошибку!

Да и согласитесь,глупо в ручную вводить 50 элементов)

Program z1;var a:array[1..100,1..100] of integer;i,j,max:integer;Beginfor i:=1 to 5 dofor j:=1 to 10 doRead(a[i,j]);For j:=1 to 10 doBeginMax:=a[1,j];for i:=2 to 5 doif a[i,j]>max then max:=a[i,j];Writeln(a[i,j]);End;End.

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

почему

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

Program z1;var a:array[1..100,1..100] of integer;I,j,max:integer;Beginfor I:=1 to 5 dpFor j:=1 to 10 doRead(a[I,j]);For j:=1 to 10 doBeginMax:=a[1,j];For I:=2 to 5 doif a[i,j]>max then max:=a[i,j];Writeln(a[i,j]);End;End.