Дан массив из 15 вещественных чисел. Найти среднее арифметическое элементов массива , стоящих на местах кратных 3 и делящихся на 5 без остатка ПОМОГИТЕЕЕ
Дан массив из 15 вещественных чисел. Найти среднее арифметическое элементов массива , стоящих на местах кратных 3 и делящихся на 5 без остатка ПОМОГИТЕЕЕ
Гость
Ответ(ы) на вопрос:
ГостьVar
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
Не нашли ответ?
Похожие вопросы