Не могу понять в чем ошибка - Free Pascal
Формулировка задачи:
Дан массив 5 на 5, нужно написать процедуру, которая будет искать наибольший элемент в строке.
program n1; var a: array [1..5, 1..5] of integer; i, j: integer; procedure max ( k: integer; var m, n: integer); begin m:=a[i,1]; for n:=2 to 5 do if m < a[i,n] then m:=a[i,n]; writeln('Строка ',i,' :',m); end; BEGIN for i:=1 to 5 do begin for j:=1 to 5 do begin a[i,j]:=random(100)-50; write(a[i,j]:4); end; writeln; end; for i:=1 to 5 do max(i, a); END.
Решение задачи: «Не могу понять в чем ошибка»
textual
Листинг программы
for i:=1 to 5 do max(i, a);
Объяснение кода листинга программы
- Объявляется цикл for с переменной i и шагом от 1 до 5
- Внутри цикла вызывается функция max с двумя аргументами: i и a
- Функция max возвращает максимальное значение из двух переданных ей аргументов
- Значение функции max присваивается переменной a
- Цикл завершается
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д