Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.

30 Янв 2020 в 19:41
143 +1
0
Ответы
1

program AvgMinMax;

var
n, number, min, max, sum: integer;

begin
write('Enter the value of n: ');
readln(n);

readln(number);
min := number;
max := number;
sum := number;

for var i := 2 to n do
begin
readln(number);
sum := sum + number;
if number < min then min := number;
if number > max then max := number;
end;

writeln('Average of min and max: ', (min + max) / 2:0:2);

end.

18 Апр 2024 в 18:31
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир