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

Question

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

Answer 1

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.

Вот =)