Noapupork
5 год назад
Вывести все значения элементов заданной числовой последовательности.Входные данные: Выходные данные:Во входном потоке в первой строке записано единственное целое число N (0 < N <= 100) - число элементов числовой последовательности; Во второй строке перечислены значения элементов целочисленной последовательности (через пробел). Значения элементов по модулю не превышают 1000.В выходной поток вывести значения элементов числовой последовательности в столбик, каждое с новой строки.Пример входного файла (input.txt):1043 564 32 76 342 76 43 342 876 42 Пример выходного файла (output.txt):435643276342764334287642 Пожалуйста посчитайте ПОЖАЛУЙСТААА!!
ОТВЕТЫ
Пахом
Oct 24, 2020
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.
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.
720
