Question

СРОЧНО!!!ДАЮ 50 БАЛЛОВ !!!PASCAL!!!НАПИШИТЕ ПРОГРАММУ ,которая получает 5 чисел ,введенных с клавиатуры (не более 100).Находит среди них максимальное и минимальное .Если сумма max и min четная ,то программа делит эту сумму на 2 ,в противном случае умножает на 2

Answer 1

Ответ:

program MinMaxSum;

var

 i, n, max, min, sum: integer;

begin

 max := -1000; // начальные значения для max и min

 min := 1000;

 

 write('Введите 5 чисел: ');

 for i := 1 to 5 do

 begin

   readln(n);

   if n > max then // поиск максимального значения

     max := n;

   if n < min then // поиск минимального значения

     min := n;

   sum := sum + n; // вычисление суммы

 end;

 if (max + min) mod 2 = 0 then // проверка на четность

   writeln('Среднее значение: ', (max + min) div 2)

 else

   writeln('Среднее значение: ', (max + min) * 2);

 readln;

end.

Объяснение:

Эта программа запрашивает пять чисел у пользователя, находит среди них максимальное и минимальное, а затем проверяет, является ли сумма этих чисел четной. Если сумма четная, то программа делит ее на 2, в противном случае она умножает ее на 2.

Answer 2

Код на Pascal для решения данной задачи:

lua

Copy code

program MaxMinSum;

var

 a, max, min, sum: integer;

begin

 max := -100; // установим начальные значения

 min := 100;

 sum := 0;

 for var i := 1 to 5 do

 begin

   write('Введите число ', i, ': ');

   readln(a);

   if a > max then // находим максимальное значение

     max := a;

   if a < min then // находим минимальное значение

     min := a;

   sum := sum + a; // считаем сумму

 end;

 writeln('Максимальное значение: ', max);

 writeln('Минимальное значение: ', min);

 if (max + min) mod 2 = 0 then // проверяем на четность

   writeln('Среднее значение: ', (max + min) div 2)

 else

   writeln('Удвоенное значение: ', (max + min) * 2);

 readln;

end.

Программа запрашивает 5 чисел, находит среди них максимальное и минимальное значения, а затем проверяет, является ли сумма максимального и минимального значений четной. Если да, то программа выводит на экран среднее значение максимального и минимального значений, деленное на 2. Если сумма нечетная, то программа выводит на экран удвоенное значение этой суммы.