Var a:array[1..100] of integer; i,n,max,min:integer; begin writeln('Skolko elementov'); readln(n); for i:=1 to n do begin write('a[',i,']='); read(a[i]); end; max:=a[1]; min:=a[1]; for i:=1 to n do if a[i]>max then max:=a[i]; for i:=1 to n do if a[i]<min then min:=a[i]; writeln('Max - Min =' ,max-min); end.
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
end.