Написать программу которая формирует массив B (n) где n=50; следующим образом B (1)=1, B...

Question

Написать программу которая формирует массив B (n) где n=50; следующим образом B (1)=1, B (2)=4, B (3)=7, B (4)=10 и т.д

Answer 1

Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;

begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.