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 jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось} END.