4. Введите массив из n строк с клавиатуры. Выведите элементы массива в обратном порядке.

var a: array[1..100] of string;
var n: integer;
begin
  write('Введите количество строк в массиве: ');
  readln(n);
  writeln('Введите строки через Enter:');
  for var i := 1 to n do
    readln(a[i]);
  writeln('Строки в обратном порядке:');
  for var i := n downto 1 do
    writeln(a[i]);
end.

Выводить строки в обратном порядке будем в цикле for var i := n downto 1 do — в таком случае изначальное значение i будет равняться n (т.е. последнему элементу) и с каждой итерацией цикла уменьшаться на единицу до значения 1.

Другие задания