pascal циклы

[galina92]

даны 20 чисел,найти разность максимального и минимального из них

[veniside]

http://ideone.com/yny7S

упс, не заметил, что Паскаль )

[Sparkman]

program super_puper;
const n = 20;
var a : array [1..n] of integer;
    j : integer;
    function findExt(dir : boolean):integer;
    var res,i : integer;
    begin
         res := a[1];
         for i:=2 to n do
             if dir then
                if res<a[i] then res := a[i] else res := res
             else
                if res>a[i] then res := a[i] else res := res;
         findExt := res;
    end;
begin
     randomize;
     writeln;
     for j:=1 to n do
     begin
          a[j] := random(9);
          write(a[j]:2);
     end;
     writeln;
     writeln('max-min = ',findExt(true)-findExt(false));
     readln;
end.