Составьте программу, формирующую одномерный массив, элементы которого равны своему индексу.

Вопрос школьника по предмету Информатика

Составьте программу, формирующую одномерный массив, элементы которого равны своему
индексу.

Ответ учителя по предмету Информатика

const n=10;

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

i:integer;

begin

for i:=1 to n do a[i]:=i;

for i:=1 to n do write(a[i],’ ‘);

writeln;

end.

Результат:

1 2 3 4 5 6 7 8 9 10