Question

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

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.