Для выполнения этого задания необходимо создать массив из n элементов (const n=10;).

Строку "const n=10; " в окно тестирующей системы вставлять не нужно - - тестирующая система сделает это сама.

Требуется заполнить массив числами, равными их порядковому номеру.

Вывести полученный массив на экран.

Question

Лада

26 февраля, 07:24

+3

Ответы (1)

Знаете ответ на вопрос?

Исак · Answer 1

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.