15.2. Напишите программу, которая в последовательности натуральных чисел определяет среднее значение между минимальным и максимальным для чисел кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода последовательности, и в последовательность не входит). Введённые числа не превышают 30 000.
Программа должна вывести одно число: среднее значение между минимальным и максимальным для чисел кратных 5 или вывести NO, если таких чисел в последовательности нет.
J2S:
на паскале писать?
Ответы на вопрос
Ответил J2S
0
На PASCAL:
program MinMaxAverage;
var
num, min, max, count, sum: integer;
hasMultipleOf5: boolean;
begin
min := 30001;
max := 0;
count := 0;
sum := 0;
hasMultipleOf5 := false;
repeat
readln(num);
if num > 0 then
begin
if (num mod 5 = 0) then
begin
hasMultipleOf5 := true;
if num < min then
min := num;
if num > max then
max := num;
sum := sum + num;
count := count + 1;
end;
end;
until num = 0;
if hasMultipleOf5 then
writeln(sum/count)
else
writeln('NO');
end.
Новые вопросы
Немецкий язык,
11 месяцев назад
Литература,
11 месяцев назад
Окружающий мир,
1 год назад
Химия,
1 год назад