Вывести все значения элементов заданной числовой последовательности. входные данные: выходные данные: во входном потоке в первой строке записано единственное целое число n (0 < n < = 100) - число элементов числовой последовательности; во второй строке перечислены значения элементов целочисленной последовательности (через пробел). значения элементов по модулю не превышают 1000. в выходной поток вывести значения элементов числовой последовательности в столбик, каждое с новой строки. пример входного файла (input.txt): 10 43 564 32 76 342 76 43 342 876 42 пример выходного файла (output.txt): 43 564 32 76 342 76 43 342 876 42
VanilkaII
3
25.08.2019 19:10
0
Другие вопросы по теме Информатика
ZHENYAKIM2008
15.12.2020 10:58
Екатерина20876
15.12.2020 10:58
enikeevanellya
15.12.2020 10:58
Mafiy12
15.12.2020 10:58
Школьник7555
15.12.2020 10:57
dfggdsddfdddf
15.12.2020 10:57
alena250880
09.09.2019 00:10
MyrkaPC325
09.09.2019 00:10
R1ceWithM3at
08.09.2019 22:54
Популярные вопросы
- От чего зависит распределение живых организмов в океане?...
1 - Как читается: have you got a room of your own. yes i have but it s not...
1 - 8^2х+6*8^х-7=0 показательные уравнения...
1 - Перевести в метры. 3м 48см в тонны 1т500кг в рубли 2к; 90к; 10руб 25к...
2 - Бізді қоршаған орта түрлі-түсті әлем сипаты...
2 - (2х-1)^2=3х^2-4x+17 решите с объяснением....
2 - Одно мембранные органойды растений заполнение клеточном соком...
2 - Подчеркните слово сочетания в которых есть имена существительные 2го скланения...
2 - Сообщение на тему плавание кролем ! не менее 1 страницы! движение рук,...
2 - Что было бы если бы земля двигалась по орбите медленнее...
3
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadAllLines('input.txt');
var n:=s[0].ToWords[0].ToInteger;
WriteAllText('output.txt',
s[1].ToWords.Take(n).JoinIntoString(NewLine))
end.
a:array [1..100] of integer;
n,i:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
writeln(a[i]);
end.