2мерный масив

[Sashok12]

помогите пожайлуста)
уже 2-й день немогу сдать лабу
в масиве(5,7) найти максимальний елемент в каждом столбце
заранее благодарен

[Alex11223]

И в чем проблема? Покажите ваши наработки или огласите сумму и способы получения вознаграждения за решение.

[Sashok12]

у меня проблема в постановке условия(

[Alex11223]

Какого условия? Искать максимальный элемент в каждом столбце, куда-нибудь его сохранять (наверно удобнее всего использовать другой массив из 7 элементов т.е. число столбцов).

[Sashok12]

а все понял,точно)
тут 2-м масивом нада)
спасибо)

[Sashok12]

program lab_11;
uses crt;
const n=3;
m=3;
var a:array [1..n,1..m] of integer;
p,i,j:integer;
max:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=100-random(200);
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
j:=1;
max[i]:=a[i,j];
for j:=2 to m do
if a[i,j]>max[i] then
begin
max[i]:=a[i,j];
end;
write (max[i],' ');
end;
readkey;
end.

[Alex11223]

n у вас — строки, а m — столбцы. Искать надо в столбцах, а не строках.
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.