В массиве 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. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.