Question

Вывести все значения элементов заданной числовой последовательности. входные данные: выходные данные: во входном потоке в первой строке записано единственное целое число 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

Answer 1

// 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.

Answer 2

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.