Дано 100 вещественных чисел. Вычислить разность между максимальным и минимальным из них. на ПАСКАЛЕ 

var i: byte;     ma, mi: real;     a: array [1..100] of real; begin      mi := 100;      for i := 1 to 100 do      begin           a[i] := random(100) / 0.5;           writeln('[', i, '] => ', a[i]);      end;      writeln('-----------------');      for i := 1 to 100 do      begin          if (a[i] > ma) then ma := a[i];          if (a[i] < mi) then mi := a[i];      end;      writeln(ma, ' - ', mi, ' = ', ma - mi); end. Вот =)