Дана последовательность чисел А длины N требуется вывести в обратном порядке

Question

Дана последовательность чисел А длины N требуется вывести в обратном порядке

Экономика

Гость

Ответ(ы) на вопрос:

Гость

program tapsirmaA;var a:array[1..1000000] of integer; i,n:integer; input,output:text;beginassign(input,'a.in');assign(output,'a.out');reset(input);rewrite(output);readln(input,n); for i:=1 to n doread(input,a[i]);for i:= n downto 1 do write(output,a[i]:2);close(input); close(output); end.

Accepted Answer

procedure san(n:integer);var a: integer;beginif n<1 then writelnelse begin read(a); san(n-1); write(a,' '); endend;var n:integer;beginwrite('n=');readln(n);writeln('San Engiz ',n,'probel arkyly');san(n);end.