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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку