Найти максимальный элемент 1 столбца массива "Паскаль"

[Женька Good]

Вообще, то задача про выборы... мне необходимо найти максимальный элемент 1 столбца массива

Помогите плз)

Вот, то что у меня получилось:

Program Xmelez_bonus_vybory;
Uses CRT;
Type mas=array[1..6,1..5] of Real;
VAr a:mas;
    i,j,n:integer;
   max:integer;
Begin
CLRSCR;
n:=0;
randomize;
Writeln('|-----------|-------------------------------|');
Writeln('| Naselennyi|            Kandidaty          |');
Writeln('|           |-------------------------------|');
Writeln('| Punkt     |   1   |  2  |  3  |  4  |   5 |');
Writeln('|-----------|-------------------------------|');
For i:=1 to 6 do
begin
write('|     '     ,i,     '     |');
For j:=1 to 5 do
begin
a[i,j]:=random(10*11+50);
Write(a[i,j]:6:0);
end;
writeln;
Writeln('|-----------|-------------------------------|');
end;
  For i:=1 to 5 do
  For j:=1 to j do
  If a[i,j]>max then
  max:=j;

Writeln;
Writeln('1 Kandidat nabral max. kol-vo golosov v ',j:0,' punkte.');
Readln;
end.

Выделенное таким цветом, это тот участок программы, где я выполняю поиск максимального элемента 1 столбца массива

[GetMax]

If a[i,j]>max then max:=j;

Что то не понятное вы тут изобразили. Вот так всё должно работать:

Max:=A[1,1]
For i:=1 to 5 do
Begin
  If A[i,1] > Max then Max:=A[i,1]
End;
Writeln(Max);

[Женька Good]

Мне нужно вывести номер строки в столбце

[GetMax]

Мне нужно вывести номер строки в столбце

Запоминаете номер строки и все дела

Max:=A[1,1];
Imax:=1;
For i:=1 to 6 do
Begin
  If A[i,1] > Max then 
  Begin
     Max:=A[i,1];
     IMax:=i
  End;
End;
Writeln(Imax);

[Serge_Bliznykov]

Запоминаете номер строки и все дела

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

поясню на примере вашего кода (хотя он тоже правильный!):

Imax:=1;
For i:=2 to 6 do
  If A[i,1] > A[iMax,1] then 
     IMax:=i;

Writeln(Imax);