Вычислить разность между максимальным и минимальным из чисел - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

Решение задачи: «Вычислить разность между максимальным и минимальным из чисел»

textual
Листинг программы
const
 n = 8;
var
 arr: array[1..n] of integer;
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i] < arr[min] then min:=i
      else if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max], '; Минимальный: ', arr[min]);
 writeln('Разница между ними: ', arr[max] - arr[min]);
end.

Объяснение кода листинга программы

  1. В начале кода объявляются необходимые переменные: n (количество чисел), arr (массив чисел), i, min, max (переменные для хранения минимального и максимального числа).
  2. Затем устанавливаются начальные значения для min и max: min=1, max=1.
  3. Далее идет цикл for, который выполняется n раз (от 1 до 8 в данном случае).
  4. Внутри цикла каждое число из массива arr выводится на экран через функцию write.
  5. После каждого вывода проверяется, является ли текущее число меньше или больше минимального числа в массиве. Если это так, то min обновляется. Если текущее число больше максимального числа, то max также обновляется.
  6. По завершении цикла выводится на экран максимальное число, минимальное число и их разница.
  7. Конец программы.

Оцени полезность:

15   голосов , оценка 3.6 из 5
Похожие ответы