Ответ:
var A:array[1..10] of integer;
i,sum:integer;
begin
writeln('Введите значения массива');
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
if A[i] mod 2=0 then sum:=sum+a[i];
write('ответ= ',sum);
end.
1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт
А В С F
0 0 0 0
0 0 1 0
0 1 0 1
0 1 1 0
1 0 0 1
1 0 1 0
1 1 0 1
1 1 1 0