const n=10;
var a:array [1..n] of integer;
i,imax,imin:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i],' ')
end;
writeln;
imax:=1;
imin:=1;
for i:=2 to n do
begin
if a[i] > a[imax] then imax:=i;
if a[i] < a[imin] then imin:=i
end;
writeln('Максимальный элемент ',a[imax]);
writeln('Минимальный элемент ',a[imin])
end.
