Program zadacha; Type mas=Array[0..100] of Integer; //так делается тип твоего массива Var m:mas; // обозначается i,n:Integer; Begin ReadLn(n); // вводится длина массиа For i:=1 to n do begin // начинаем цикл m[i]:=i; // присваивает элементу массива как значение - его номер Write(m[i],' '); // печатаем end; // заканчиваем цикл ReadLn; // вводится, чтобы консоль сразу не закрывалась(будешь сдавать задачу в систему - не пиши!! End.
Type mas=Array[0..100] of Integer; //так делается тип твоего массива
Var m:mas; // обозначается
i,n:Integer;
Begin
ReadLn(n); // вводится длина массиа
For i:=1 to n do begin // начинаем цикл
m[i]:=i; // присваивает элементу массива как значение - его номер
Write(m[i],' '); // печатаем
end; // заканчиваем цикл
ReadLn; // вводится, чтобы консоль сразу не закрывалась(будешь сдавать задачу в систему - не пиши!!
End.