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