Вывести max и min, которые равны соответственно наибольшему и наименьшему членам последовательности

@Jeicob · Регистрация: 15.07.2010

Author24 — интернет-сервис помощи студентам

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

Pascal

 var
n:integer;
begin
 
procedure p(n:integer; min,max:real);
var i:integer; a: array [1..n] of real;
for i:=1 to n do
readln(a[i]);
max:=0
for i:=1 to n do begin
if a[i]>max then max:=a[i];
end;
min:=10000;
for i:=1 to n do begin
if a[i]<min then min:=a[i];
end;
end;
 
writeln('Введите N');
readln(n);
 
p(n,max,min);
writeln(min,' ',max);
realdln;
end.

@Law[L]esS · 14.08.2010, 15:15

в процедуре выходной параметр?! интересно... если хотите использовать max и min дальше в основной программе, то обьявите их глабальными переменными, а передовать в процедуру их ненадо)

@Puporev · 14.08.2010, 15:26

Pascal

uses crt;
procedure p(n:integer; var min,max:real);
var i:integer;
    x:real;
begin
readln(min);
max:=min;
for i:=2 to n do
 begin
  readln(x);
  if x>max then max:=x
  else if x<min then min:=x;
 end;
end;
var n:integer;
    mx,mn:real;
begin
clrscr;
write('Введите N=');
readln(n);
writeln('Введите ',n,' вещественных чисел:');
p(n,mn,mx);
writeln('Min=',mn:0:2,' Max=',mx:0:2);
readln
end.

Добавлено через 40 секунд

Сообщение от Law[L

esS;905830]в процедуре выходной параметр?!

А в чем проблема? Параметры после var называются выходными...

@Law[L]esS 117 / 114 / 89 Регистрация: 31.10.2009 Сообщений: 191
	14.08.2010, 15:15	2
	в процедуре выходной параметр?! интересно... если хотите использовать max и min дальше в основной программе, то обьявите их глабальными переменными, а передовать в процедуру их ненадо) 0

	14.08.2010, 15:26