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

Question

Мартиниана

2 сентября, 11:46

+1

Ответы (1)

Знаете ответ?

Зосима · 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.