Дан массиы, содержащий 50 элементов. Найти среднее арифмитическое элементов массива, состоящих на местах кратных 5

Question

Информатика

Радован

29 ноября, 02:46

Дан массиы, содержащий 50 элементов. Найти среднее арифмитическое элементов массива, состоящих на местах кратных 5

+4

Ответы (1)

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

Наса · Answer 1

Var a:array[1 ... 50] of integerl;

sr:real;

kol, i:integer;

begin

for i:=1 to 50 do

readln (a[i]) ;

kol:=0;

sr:=0;

i:=5;

while i<=50 do

begin

sr:=sr+a[i];

kol:=kol+1;

i:=i+5;

end;

writeln (sr/kol) ;

end.