Используя средства языка Паскаль ,сформировать массив из 15 чисел по формуле Ai=cos...

Question

Используя средства языка Паскаль ,сформировать массив из 15 чисел по формуле Ai=cos 5i-1/корень из i^3+9. Написать функцию для подсчета кол-ва элементов массива ,значения которых меньше среднего арифметического его элементов

Answer 1

PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018
Внимание! Если программа не работает, обновите версию!

function CountCond(a:array of real):=a.Where(t->t
begin
  var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
  Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.

Answer 2

Const
  n=15;
type
  tm=array [1..n] of real;

function fk(a:tm):integer;
var
  i,k:integer;
  m:real;
begin
  m:=0;
  for i:=1 to n do
    m:=m+a[i];
  m:=m/n;
  k:=0;
  for i:=1 to n do
    if a[i]  fk:=k
end;

var
  a:tm;
  i:integer;
begin
  for i:=1 to n do
  begin
    a[i]:=cos(5*i)-1/sqrt(i*i*i+9);
    Write(a[i]:13:9)
  end;
  Writeln;
  Writeln('Элементов меньше среднего: ',fk(a))
end.