profile="http://gmpg.org/xfn/11"> Напечатать элементы массива в прямом и обратном порядке, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Напечатать элементы массива в прямом и обратном порядке, паскаль.

Напечатать элементы массива в прямом и обратном порядке, паскаль.

program Num3;

  {задачи работа с массивом в паскале, с решением}
  {Напечатать элементы массива в прямом и обратном порядке, паскаль}
var
  i: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Введите 10 (десять) чисел:');
  for i := 1 to 10 do
    ReadLn(i_ArrNum[i]);
  WriteLn('Прямой порядок:');
  for i := 1 to 10 do
    Write(i_ArrNum[i], '  ');
  WriteLn();
  WriteLn('Обратный порядок:');
  for i := 10 downto 1 do
    Write(i_ArrNum[i], '  ');
  WriteLn();
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Напечатать элементы массива в прямом и обратном порядке, паскаль
Напечатать элементы массива в прямом и обратном порядке, паскаль.

Комментарии запрещены.