В паскаль АВС

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

Question

Информатика

Алевтинка

30 апреля, 04:40

В паскаль АВС

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

+5

Ответы (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] числами, вводимыми с клавиатуры. Найти среднее арифметическое четных элементов.