Вывести все значения частей данной числовой последовательности.Входные данные: Выходные

Вывести все значения частей данной числовой последовательности.
Входные данные: Выходные данные:
Во входном потоке в первой строке записано единственное целое число N (0 lt; N lt;= 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
ПОМОГИТЕ ПОЖАЛУЙСТААА!!

Задать свой вопрос
2 ответа
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadAllLines('input.txt');
  var n:=s[0].ToWords[0].ToInteger;
  WriteAllText('output.txt',
      s[1].ToWords.Take(n).JoinIntoString(NewLine))
end.
Var 
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.
Степан Чуреков
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт