NEADgff
16.04.2022 20:45

Впаскаль авс заполнить массив а[1..8] числами, вводимыми с клавиатуры. найти среднее арифметическое четных элементов.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
hamzmxn66
07.10.2020 03:31

var a:array[1..8]of integer;

i,s:integer;

begin

for i:=1 to 8 do begin

  readln(a[i]);

  if i mod 2 = 0 then s:=s+a[i];

end;

writeln(s/4);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота