Последовательность чисел строится по следующему алгоритму: первые два числа последовательности принимаются равными 1; каждое следующее число последовательности принимается равным сумме двух предыдущих чисел. запишите 10 первых членов этой последовательности выясните как называется это последовательность (запишите виде блок схемы) Прикрепите фото, как должно выглядеть
var a, S1, S2: Integer;
i, Q1, Q2: Byte;
begin
S1 := 0; Q1 := 0;
S2 := 0; Q2 := 0;
writeln('Введите ', N, ' чисел:');
for i := 1 to N do
begin
read(a);
if a < 0 then
begin
S1 := S1 + a;
inc(Q1)
end;
if a > 0 then
begin
S2 := S2 + a;
inc(Q2)
end;
end;
writeln;
if Q1 > 0 then
begin
writeln('Сумма отрицательных чисел: ', S1);
writeln('Количество отрицательных: ', Q1)
end
else
writeln('Отрицательных нет');
if Q2 > 0 then
begin
writeln('Сумма положительных чисел: ', S2);
writeln('Количество положительных: ', Q2)
end
else
writeln('Положительных нет')
end.