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

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.

ты как то сложно решил

а полегче никак? не поверят что я решила

если из n чисел, то явно используется массив, а вот если из 2,3 чисел то команда if.