Вывести элементы массива...

Тема в разделе "Информатика", создана пользователем Disa Reginlave, 24 мар 2010.

  1. Disa Reginlave

    Disa Reginlave New Member

    Вывести элементы массива на экран в обратном порядке
     
    Disa Reginlave, 24 мар 2010
    #1
  2. Katur

    Katur New Member

    Var a:array [1..10] of integer;
    begin
      for i:=1 to 10 do
       begin
        a:=i;
        write (a:3);
       end;
      writeln;
      for i:=10 downto 1 do write (a:3);
      writeln;
    end.
     
    Katur, 24 мар 2010
    #2

Поделиться этой страницей

Наша группа