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

Question

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

Answer 1

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

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.

Comments

У меня 100% решение

---

Опечатка у вас

---

и не очень красиво сделано.

---

Зато у меня 100% ная решение

---

не 100% ,прога вообще не работает

---

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

---

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

---

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.

---

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

---

почему