Вопрос Программирование типовых алгоритмов обработки двумерных массивов

[sanekiso]

Задана матрица А (3, 5). Упорядочить по возрастанию элементы той строки, где находится наибольший элемент матрицы.
Полученную матрицу напечатать по строкам.
Помогите, пожалуйста, найти ошибку и исправить ее. Пишет, что p не является меткойif a[i,j]> p then begin p:a[i,j]; , если сделать p:= тоже не получается
var
a: array [1..5,1..5] of real;
i,j,k,p:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
readln(a[i,j]);
end;end;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if a[i,j]> p then begin p:a[i,j];
k:=i; end;end;end;
i:=k;
for j:=1 to 4 do begin
p:=a[i,j]; k:=i;
for j:=2 to 5 do begin
if a[i,j]<=p then begin
p:=a[i,j]; k:=j; end;
end;
a[i,k]:=a[i,j];
a[i,j]:=p;
end;
for j:=1 to 5 do begin
write(a[i,j]);
end;
writeln;
end.

 

[ррррртвыапвр]

p:=a[i,j]; Ну запиши массив как integer или p как real

 

[sfgb]

Чё такое "p:a[i,j] "? Ты наверное хотел написать p:=a[i,j];

 

[тимка]

1) p и A[i, j] разных типов. Тебе компилятор так и пишет: нельзя преобразовать тип real к integer. Если переменная p у тебя для хранения макс. элемента матрицы, значит, и типа она должна быть того, что и матрица. 2) Где инициализация p? Например, p := A[0, 0];

 

[haewka]

Супер программисты