В массиве A[100] найти среднее арифметическое, кратных 5 и кратных 3 элементов массива.

Question

Информатика

Володюка

5 сентября, 23:52

В массиве A[100] найти среднее арифметическое, кратных 5 и кратных 3 элементов массива.

+1

Ответы (1)

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

Стефания · Answer 1

var

i, n:integer;

p:real;

a:array[1 ... 100]of integer;

begin

for i:=1 to 100 do

begin

a[i]:=random (50) + 1;

write (a[i],' ') ;

if (a[i] mod 5=0) and (a[i] mod 3=0) then

begin

p:=p+a[i];

n:=n+1;

end;

end;

writeln;

p:=p/n;

writeln ('Ответ: ', p) ;

end.