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<a.Average).Count;

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]<m then k:=k+1;
  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.

Answer 3

Конечно, вот пример кода на языке Pascal, который создает массив из 15 чисел по заданной формуле и затем использует функцию для подсчета количества элементов массива, значения которых меньше среднего арифметического всех элементов массива:

pascalCopy code
program CalculateArray;

const
  N = 15; // Размер массива

type
  FloatArray = array[1..N] of Real;

var
  A: FloatArray;
  i: Integer;
  sum, average: Real;

function CountElementsLessThanAverage(arr: FloatArray; avg: Real): Integer;
var
  count, i: Integer;
begin
  count := 0;
  for i := 1 to N do
  begin
    if arr[i] < avg then
      count := count + 1;
  end;
  CountElementsLessThanAverage := count;
end;

begin
  // Заполнение массива по формуле
  for i := 1 to N do
  begin
    A[i] := cos(5 * i - 1) / sqrt(i * i * i + 9);
    sum := sum + A[i];
  end;

  // Вычисление среднего арифметического
  average := sum / N;

  // Вызов функции и вывод результата
  writeln('Количество элементов массива, значения которых меньше среднего арифметического: ', CountElementsLessThanAverage(A, average));
end.

Этот код создает массив A из 15 элементов, используя заданную формулу. Затем он вычисляет среднее арифметическое всех элементов массива и вызывает функцию CountElementsLessThanAverage, чтобы посчитать количество элементов массива, значения которых меньше этого среднего арифметического.