Ответ: Исправьте ошибку!
Ответ: Да и согласитесь,глупо в ручную вводить 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.