Var arr: array[1..100] of integer; min,max:integer;
begin
for var i:=1 to 100 do arr[i]:=random(-60,140);
min:=arr[1];
max:=arr[1];
for var i:=2 to 100 do begin
if arr[i] if arr[i]>max then max:=arr[i];
end;
writeln(arr);
writeln('Максимальный элемент: ', max, ', Минимальный элемент: ',min);
end.