uses crt;
var mas: array [1..100] of integer;
i,a,b,min,max,r:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do begin
mas[i]:= random(10)+1;
write (mas[i]:2);
end;
max:=mas[1];
For i:=1 to 10 do begin
If mas[i]>max then
max:=mas[i];
end; writeln; writeln;
write ('Max = ',max:5);
min:=mas[1];
For i:= 1 to 10 do begin
If mas[i] < min then
min:=mas[i];
end;
writeln;
writeln;
write('Min = ',min:5);
a:=max-min; writeln;writeln;
writeln('Raznost = ',a);
end.