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

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

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

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

Question

Каринка

20 сентября, 08:30

+2

Ответы (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.