Задание

Из предложенных операторов составьте 2 задачи

Заполните массив степенями числа 2 (от 2^1 до 2^N)

Заполните массив элементами арифметической прогрессии. Её первый элемент и разность вводятся с клавиатуры.

const N=10;

var St,i: integer; A: array[1..n] of integer;

var a,p,N,i: integer; M: array[1..100] of integer;

Begin

St:=1;

For i:= 1 to N do

Begin

St:=St*2;

A[i]:=St;

Write(A[i],' ')

End;

End.

Begin

Read(N);

Read(a,p);

M[1]:=a;

For i:=2 to N do

Begin

M[i]:=M[i-1]+p;

Write(M[i],' ')

end;

end.