Регистрация
Войти
Стать экспертом Правила
Информатика

Дан массив,содержащий неотрицательные целые числа,вывести среднее арифметическое элементов массива, которые делятся на 3 и на 5

ОТВЕТЫ
Если число делится на 3 и на 5, то оно делится и на 3х5=15.






begin
  var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
  var s:=a.Where(x->x mod 15=0);
  if s.Count>0 then Writeln('Ср.арифм. кратных 15 равно ',s.Average:0:5)
  else Writeln('Нет чисел кратных 15')
end.


n= 25
867 201 699 50 660 344 843 90 443 16 529 113 463 46 383 419 992 953 733 241 906 558 710 633 995
Ср.арифм. кратных 15 равно 375.00000



const
  nn=100;
var
  a:array[1..nn] of integer;
  i,n,s,k:integer;
begin
  Randomize;
  Write('n=');
  Read(n);
  s:=0;
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(999)+1;
    Write(a[i],' ');
    if a[i] mod 15=0 then begin
      s:=s+a[i];
      k:=k+1
      end
    end;
  Writeln;
  if k>0 then Writeln('Ср.арифм. кратных 15 равно ',s/k:0:5)
  else Writeln('Нет чисел кратных 15')
end.


n=17
303 262 411 814 704 285 647 347 362 327 517 101 937 8 605 426 29
Ср.арифм. кратных 15 равно 285.00000
816
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам