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

Question

Информатика

Дайэр

5 декабря, 04:20

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

+2

Ответы (1)

Знаете ответ на вопрос?

Дали · Answer 1

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.