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