1, 1, 1, 2, 1
Изменение значения: 11, 9, 7, 5, 15, 13.
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
Var
n,i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
if a[i]=1 then n:=n+1;
end;
writeln ('edinice=',n,' elements');
end.