Сс клавиатуры вводят 25 целых чисел. найти среднее арифметическое тех из них которые кратны 4, но не оканчиваются на 4
mialoma
1
08.04.2019 20:40
2
Другие вопросы по теме Информатика
16653
20.11.2019 11:29
АминаКамалиева1
20.11.2019 11:09
Чай24
20.11.2019 11:06
pozdniakova1998
20.11.2019 10:59
pumferplay
20.11.2019 10:59
ВоСьМиКлAшKа
20.11.2019 13:28
Dadahkkkaaa001
20.11.2019 13:28
РешОрше
20.11.2019 13:27
Виолакеса
20.11.2019 13:22
Популярные вопросы
- Дан ∆ ABC CB - 8 см уголА равен - 60°Найти расстояние от точки C до...
1 - ПАМАГИТЕ ХИМИЯ УБИВАЕТ У МЕНЯ 20 МИНУТ ДО СВЯТОЙ ИНКВИЗИЦИИ. ОШИБКА...
2 - Почему хвощи мхи и плауны называют высшими споровыми растениями...
2 - Рассказ Кукла Е. И. Носов. 1)Какую проблему ставит Носовом перед нами?...
2 - Как перевести это стихотворение и кто его автор? My love is warmer...
1 - Функция крови(название-в чем заключается)...
3 - контрольная работа по математике...
2 - Приведи подобные слагаемые: −2,38x+7,9x−19,4x. ответ (записывай ответ...
3 - Посчитайте число протонов в 16 атомах алюминия...
3 - 1 и 2 кран наполняют ванну за 20мин 2и 3 за 15мин а 1и3 за12мин за...
3
var a,s,k: integer;
begin
s:=0;
k:=0;
for i:=1 to 25 do
begin
read(a);
if (a mod 4=0)and(a mod 10<>4)
then begin s:=s+a; k:=k+1; end
end;
if k<>0 then writeln(s/k)
else writeln('Нет нужных чисел');
end.
Пример (для 5 чисел):
12 44 15 48 24
30