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

Вроде здесь уже решал такое : ) //pascal var   n, a, b, c: integer; begin   n : = 1;   repeat       repeat           writeln(' ведите стороны a,b,c ', n, ' - треугольника');           readln(a, b, c);       until ((a > 0) and (b > 0) and (c > 0)) and ((a + b) > = c);       writeln('периметр равен ',a + b + c);       n : = n + 1;   until n > 25; end.

Const n = 10; var a: array[1..n]of integer;   min,imin,i,oldmin: integer; begin   //заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим минимальный элемент элемент   min: =100;   for i: =1 to n do begin       a[i]: =random(201)-100;       if a[i]< = min then       begin           min: =a[i];           imin: =i; //запомним index минимального       end;       write(a[i]: 5);   end;   writeln;     //в цикле сдвигаем элементы массива   //до индекса минимального включительно на   //одну позицию вправо   for i: =imin downto 2 do       a[i]: =a[i-1];       a[1]: =min;   //вывод элементов массива   for i: =1 to n do write(a[i]: 5);   end.