Дано 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.Вот =)