Написать программу которая формирует массив B (n) где n=50; следующим образом B (1)=1, B (2)=4, B (3)=7, B (4)=10 и т.д
Написать программу которая формирует массив B (n) где n=50; следующим образом B (1)=1, B (2)=4, B (3)=7, B (4)=10 и т.д
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы