Как перевернуть массив в pascal?

Пользователь

от stephania , в категории: Другие , год назад

Как перевернуть массив в pascal?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от Programmer , год назад

@stephania 

Добрый вечер!

Для того чтобы перевернуть одномерный массив необходимо прочитать/перезаписать его с обратной стороны.

Пример:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
var mas1: array[1..10] of integer; // исходный массив
    mas2: array[1..10] of integer; // перевернутый массив
    i: integer;
begin
  for i:= 10 downto 1 do
    begin
       mas2[10-i+1]:= mas1[i];
    end;   

  for i:= 1 to 10 do
     writeln(mas2[i]);
end;