Паскаль

[EVE94]

Опишите целочисленный массив из 10 элементов
заполнить массив последовательностью чисел 2 5 11 23 47
вывести массив на экран.
var A : array [1..10] of integer;
i : integer;
begin
A[1]:=2;
for i:=1 to 10 do
begin
A[i]:=A[i-1]+3*i;
write (A[i], ' ')
end;
end.
Подскажите почему программа не работает?

[FrosyaZZ]

for i:=1 to 10 do
begin
A[i]:=A[i-1]

Чему равно i-1 при i = 1?

[digitalis]

for i:=2 to 10 do

"Вот так-то будет лучше" - сказал старик Хотябыч . Но при этом будет другая последовательность
2 8 17 29 44
А по уму - оно так:

var A : array [1..10] of integer;
i,d : integer;
begin
A[1]:=2;
d := 3;
for i:=2 to 10 do
begin
   A[i]:=A[i-1]+d;
   d := d + d;
   write (A[i], ' ')
end;
end.

[BDA]

Или просто A[i] := 2 * A[i - 1] + 1;.

[digitalis]

Действительно...
Впрочем, "нормальные герои всегда идут в обход"