А кроме первых трёх значений есть что-нибудь ещё,а то никак не решить.
1.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
if a[i]>0 then s:=a[i]+s;
end;
writeln(s);
end.
2.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10);
if a[i] mod 2 = 0 then s:=s+a[i];
end;
write(s);
end.
3.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
if (i mod 2 = 0) and (a[i] mod 2 = 0) then s:=s+a[i];
end;
writeln(s);
end.
Ответ:
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n;
double P=1;
cin >> n;
for(double i = 2; i <= 2*n;i+=2)
P *= i/(i+1);
cout << fixed << setprecision(3) << P;
}
<u>PascalABC.NET 3.2</u>
begin
var B := MatrRandom(4, 5, -50, 70);
println('Исходный массив:');
B.Println;
println('Кратных 3:', B.Rows.SelectMany(x->x).Where(x->x mod 3 = 0).Count);
println('Кратных 5:', B.Rows.SelectMany(x->x).Where(x->x mod 5 = 0).Count);
println('Кратных 7:', B.Rows.SelectMany(x->x).Where(x->x mod 7 = 0).Count);
end.
<em>Пример вывода:</em>
Исходный массив:
13 31 34 -30 24
34 55 9 16 66
-38 -50 44 53 18
-20 -4 -49 -42 -3
Кратных 3: 7
Кратных 5: 4
Кратных 7: 2