Здравствуйте!
Задача: написать программу для выявления максимального значения в каждом из трёх одномерных массивов.
Попытаюсь словами объяснить свой алгоритм:
1. Ввод массива с клавиатуры (через процедуру)
2. Выбираю максимум (через процедуру)
3. В основной программе оперирую заранее введёнными процедурами
Вот мой код
Код:
Program Zadacha;
const N=10; M=3;
type Data=array [1..N] of real;
var arM:Data; max:integer; i:integer;
procedure F1(var arA: Data);
var I:integer;
begin
writeln ('Vvod massiva');
for I:=1 to N do
begin
write ('Vvesti A[',I,']');
readln(arA[I]);
end;
end;
procedure F2(var arA: Data);
var I:integer;
begin
for I:=1 to N do
if arA[i]>arA[i+1] then arA[i]:=max
else arA[i+1]:=max;
end;
BEGIN
i:=1 to M do F1;
i:=1 to M do F2;
writeln('max', max);
readln;
readln;
END.
Ошибку выдаёт, где идёт первое обращение к процедуре F1. Там думаю, что нужно указать фактические параметры.
Заранее большое спасибо!
