Определить сумму и разность максимального и минимального элементов массива - Pascal ABC

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

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

Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элементов.

Решение задачи: «Определить сумму и разность максимального и минимального элементов массива»

textual
Листинг программы
const
  n = 15;
var
  a : array [1..n] of integer;
  i, max, min : integer;
begin
  max := -maxint;
  min := maxint;
  {ввод и сразу поиск мин. и макс.}
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] >= max then max := a[i];
    if a[i] <= min then min := a[i]
  end;
  {вывод}
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  writeln('максимум = ', max, ', миниум = ', min);
  writeln('их сумма = ', max + min, ', разность = ', max - min)
end.

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

В данном коде объявлены следующие переменные:

  • n - количество элементов в массиве (равное 15 в данном случае);
  • a - массив целых чисел;
  • i - индекс текущего элемента массива;
  • max - максимальное значение в массиве;
  • min - минимальное значение в массиве. Сначала инициализируются переменные max и min значением -maxint и maxint соответственно. Затем происходит ввод значений массива с помощью цикла for, который выполняется n раз (где n - это значение переменной n). Внутри цикла выводится значение каждого элемента массива и проверяется, является ли оно больше или равно максимальному значению. Если это так, то max обновляется. Аналогично проверяется, является ли значение элемента меньше или равно минимальному значению. Если это так, то min обновляется. После завершения ввода значений массива происходит вывод значений массива с помощью еще одного цикла for. Затем выводятся максимальное и минимальное значения, их сумма и разность с помощью нескольких выражений. Таким образом, данный код выполняет поиск максимального и минимального значений в массиве, а затем выводит эти значения и их сумму и разность.

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

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