Какое число было введено в данной программе, если результатом исполнения является число 100? var a: array [1 ... 8] of integer;

i, sum: integer;

begin

readln (a [1]) ;

sum : = 0;

for i:=1 to 8 do

a [i] : = a [i-1] + 3;

for i : = 8 downto 1 do

sum: = sum + a [i];

writeln (sum)

end.

Результатом исполнения данной программы не может быть число 100, так как эта программа содержит ошибку.

Массив здесь описан

var a: array [1 ... 8] of integer;

При выполнении цикла

for i:=1 to 8 do a [i] : = a [i-1] + 3;

на первом шаге должна быть выполнена команда a[1]:=a[0]+3

Элемента a[0] в массиве нет. Даже если бы он был, то введенное значение a[1] было бы заменено новым значением a[0]+3