var a: array [1..20] of integer;
i,max,min :integer;
begin
max:=-100;
min:=100;
for i:=1 to 20 do
a[i]:= random(-100,100);
if a>max then max:= a;
if a<min then min:= a;
end;
Writeln('max ', max);
Writeln('min ', min);
end.
var a: array [1..20] of integer;
i,max,min :integer;
begin
max:=-100;
min:=100;
for i:=1 to 20 do
begin
a[i]:= random(-100,100);
if a>max then max:= a;
if a<min then min:= a;
end;
Writeln('max ', max);
Writeln('min ', min);
end.