Var arr: array[1..100] of integer; i, n, min, max: integer; begin min:=1; max:=1; readln(n); for i:=1 to n do begin arr[i]:=random(100); write(arr[i], ' '); if arr[i]>arr[max] then max:=i; if arr[i]<arr[min] then min:=i; end; writeln; writeln('Минимальный(', arr[min], '); Максимальный(', arr[max], ');'); end.
arr: array[1..100] of integer;
i, n, min, max: integer;
begin
min:=1;
max:=1;
readln(n);
for i:=1 to n do
begin
arr[i]:=random(100);
write(arr[i], ' ');
if arr[i]>arr[max] then max:=i;
if arr[i]<arr[min] then min:=i;
end;
writeln;
writeln('Минимальный(', arr[min], ');
Максимальный(', arr[max], ');');
end.