Дан массиы,содержащий 50 элементов. Найти среднее арифмитическое элементов массива,состоящих на местах кратных 5
Дан массиы,содержащий 50 элементов. Найти среднее арифмитическое элементов массива,состоящих на местах кратных 5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы