Var a:array[1..5] of real; i:integer; min,max:real; begin for i:=1 to 5 do begin write ('Введите ',i,' число: '); readln (a[i]); end; max:=a[1]; min:=a[1]; for i:=1 to 5 do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; WRITELN; writeln ('Максимальное = ',max); writeln ('Минимальное = ',min); end.
i:integer;
min,max:real;
begin
for i:=1 to 5 do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to 5 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
WRITELN;
writeln ('Максимальное = ',max);
writeln ('Минимальное = ',min);
end.