В паскаль АВС

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

Question

Информатика

Флавий

13 июля, 09:07

В паскаль АВС

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

+4

Ответы (1)

Знаете ответ на вопрос?

Димуся · Answer 1

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.

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

В паскаль АВС

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