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

Question

Емиля

14 июля, 17:49

+4

Ответы (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.