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

Question

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

nbatagova2005 · Answer

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