Используя средства языка Паскаль ,сформировать массив из 15 чисел по формуле Ai=cos 5i-1/корень из i^3+9. Написать функцию для подсчета кол-ва элементов массива ,значения которых меньше среднего арифметического его элементов
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
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.
Внимание! Если программа не работает, обновите версию!
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.
Приложения:
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад