Question

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

Answer 1

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.

Answer 2

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

Answer 3

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.