Впаскаль авс заполнить массив а[1..8] числами, вводимыми - вопрос №814248518 от ира1025 01.08.2020 00:52

Question

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

ира1025 · 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....