Question

РЕШИТЕ В ПАСКАЛЕ!!!1. Найти разность между максимальным и минимальным числом из n введенных чисел.

Answer 1

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.