var
k,h:integer;
p,s,x,eps,n,p1:real;
begin
x:=10;
while (x<0) or (1<x) do begin {Условие ввода 0>x>1}
write('Введите X = '); readln(x);
end;
eps:=1e-@; //В место @ нужно ввести погрешность в положительном числовом виде (вычислить до @-го знака после запятой)
p:=x;
n:=2;
p1:=1;
h:=1;
while abs(p)>eps do {Условие выхода: очередной член ряда по модулю меньше eps}
begin
writeln('[Отладка] ',eps,' ',p,' ',s,' ',n); //отладка
for var i:=0 to 1 do begin
k:=k+1;
p1:=p1*k;
end;
h:=h*-1;
p:=h*(power(2*x,n))/p1; {Вычисление очередного члена ряда}
s:=s+p;
n:=n+2;
end;
writeln('cos(2x-1) = ', s);
end.
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Rus");
int mas[17], s = 0, sr = 0, counter = 0, counter_p = 0;
for (int i = 0; i < 17; i++) {
cin >> mas[i];
if (mas[i] > 0) {
counter_p++;
sr += mas[i];
}
}
sr = sr / counter_p;
for (int i = 0; i < 17; i++) {
if (mas[i] > sr) {
counter++;
s += mas[i];
}
}
cout << "Количество элементов, которые больше среднего арифметического: " << counter << "\n";
cout << "Сумма элементов, которые больше среднего арифметического: " << s;
return 0;
}
program n_1;
const n=7;
var i, m: integer; a:array [1..n] of real;
begin
m:=1;
for i:=1 to n do begin
read(a[i]);
if a[i]>a[m] then m:=i;
end;
writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);
end.