Ответы
Ответ дал:
0
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.
Ответ дал:
0
Program znanija;
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад