Ряд чисел фибоначчи задается следующим образом: первые два числа равны 1 ( f 1 = f 2 = 1 ), а каждое следующее равно сумму двух предыдущих: f i = f i - 1 f i - 2 . напишите программу, которая вводит натуральное число n и заполняет массив из n элементов первыми n числами фибоначчи. входные данные входная строка содержит размер массива n . гарантируется, что 0 < n ≤ 40 . выходные данные программа должна вывести содержимое массива: первые n чисел фибоначчи. примеры входные данные 5 выходные данные 1 1 2 3 5

Program fib;
var i,ch,ch1,ch2,n:integer;
begin
write('n=');
readln(n);
ch:=0; ch1:=1;
for i:=1 to n do begin
ch2:=ch1;
ch1:=ch;
ch:=ch1+ch2;
write(ch:4);
end;
end.
ну если тебе надо с 1 то на

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(100,-20,20); a.Println;
  WritelnFormat('Положительных {0}, отрицательных {1}',
    a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.

Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54

Объём информации первого письма на 100 бит больше (или в 1,5 больше), чем второго.

Объяснение:

Дано:

K₁ = 50 символов

N₁ = 64 символа

K₂ = 40 символов

N₂ = 32 символа

Найти: | I₁ - I₂ |,  I₁ / I₂

i₁ = log₂N₁ = log₂64 = 6 бит/символов

i₂ = log₂N₂ = log₂32 = 5 бит/символов

I = K * i

I₁ = 50 символов * 6 бит/символ = 300 бит

I₂ = 40 символов * 5 бит/символ = 200 бит

| I₁ - I₂ | = | 300 бит - 200 бит | = 100 бит

I₁ / I₂ = 300 / 200 = 1,5

ответ: объём информации первого письма на 100 бит больше (или в 1,5 больше), чем второго.