(Паскаль) написать программы, которые заполняют массив числами с арифметической...

Question

(Паскаль)
написать программы, которые заполняют массив числами с арифметической прогрессией и числами фибаначи

Comments

А1=1,А2=2 и тд.

---

А2+1

---

Тоесть

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write('Ряд натуральных чисел:');
For i:= 1 to N do
    Begin
    A[i]:=i;
    Write(' ',A[i])
    End;
End.



Const
   N = 13;
Var
   A,B,C:longint;
   i:integer;
   M:array[1..N] of longint;
Begin
A:=0;
B:=1;
M[1]:=1;
For i:= 2 to N do
    Begin
    A:=B+A;
    M[i]:=A;
    C:=A;
    A:=B;
    B:=C;
    End;
For i:= 1 to N do
    Write(M[i],' ');
End.