Ввести в линейный массив случайные числа (Random),
вывести максимальный и минимальный элементы массива.
Uses Crt; const n=10;
var a:array[1..n] of real;
max, min: real; i :integer;
begin
for i:=1 to n do
begin
a[i]:=random(30)+random-15;
Write(a[i], );
end;
writeln; max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln(max= ,max);
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln(min= ,min);
end.