Во втором нужно разбивать числа на сумму степеней двойки.
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.
CD карта или диск. Облако в интернете
Аутентификация-это процесс подлинности чего-либо.
Переданное по сети в открытом виде,плохо,так как не защиты от перехвата!
#include <iostream>using namespace std;int main(){ int n,m; cout<<"Enter two numbers\n"; cin>>n>>m; if(n<m)cout<<n+m<<endl; else cout<<n-m<<endl; return 0;}