otoceni_posloupnosti [Programování]

Zadání

Napište program, který přečte kladné celé číslo n, pak pak přečte hodnoty a₁ až a_n nakonec vypíše přečtené hodnoty v opačném pořadí, tedy v pořadí a_n,… a₁.

Řešení

 
const MAX = 100;        {nejvyssi mozny pocet zadavanych cisel}
 
var
  {pole, v nemz budeme uchovavat nactena cisla}
  pole: array[1..MAX] of integer;
 
  {citac v cyklu for}
  i,
 
  {delka posloupnosti}
  n: integer;
 
begin
  repeat
    writeln('Zadejte pocet cisel (0 az ', MAX, ') :');
    readln(n);
  until (n >= 0) and (n <= MAX);
 
  {cteme cisla do pole}
  for i := 1 to n do
    readln(pole[i]);
 
  {vypiseme posloupnost pozpatku}
  for i := n downto 1 do
    writeln(pole[i]);
end.