Процедуры

[nikshiyan]

Определить процедуру p(n, max, min), n - натуральное
число, в теле которой вводится последовательность вещественных
чисел x[1], x[2], x[n] и выходные параметры max и min равны
соответственно наибольшему и наименьшему членам этой
последовательности.

[Don Karleone]

procedure p(const n: integer; var min, max: real);
var
i: integer;
m: real;
begin
for i:=1 to n do {ввод последовательности от 1 до n}
begin
readln(m); {ввод вещественного числа m}
if i = 1 then
begin
max:=m;
min:=m;
end;
if m > max then max:=m;
if m < min then min:=m;
end;
end;

вроде должно работать

[nikshiyan]

Спасиб Don Karleone