Найти два числа, модуль разности которых имеет наибольшее значение - Pascal ABC

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

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

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: Наибольшее значение

Решение задачи: «Найти два числа, модуль разности которых имеет наибольшее значение»

textual
Листинг программы
program t;
 
  function Min(a, b: integer): integer;
  begin
    if a > b then
      Min := b
    else
      Min := a;
  end;
 
  function max(a, b: integer): integer;
  begin
    if a > b then
      Max := a
    else
      Max := b;
  end;
 
var
  AMin, Amax, A: integer;
  i: integer;
begin
  for i := 1 to 5 do
  begin
    Read(A);
    if i = 1 then
    begin
      AMin := A;
      AMax := A;
    end;
    AMin := Min(A, AMin);
    AMax := Max(A, AMax);
  end;
  writeln(AMin, AMax: 10);
end.

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

В данном коде используется язык программирования Pascal ABC. Он содержит несколько функций и переменных. Функция Min(a, b: integer) принимает два целых числа и возвращает наименьшее из них. Функция Max(a, b: integer) возвращает наибольшее из двух целых чисел. Переменные AMin и AMax инициализируются первыми двумя числами, которые вводятся с клавиатуры. Затем для каждого числа, введенного с клавиатуры, вызывается функция Min или Max, чтобы обновить значения AMin и AMax. В конце программы выводятся значения AMin и AMax.

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

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