Question

PascalABC.NET Составьте программу для ввода значений 10 элементов массива с клавиатуры и вывода их на экран в обратном порядке. ​

Answer 1

var

 a: array[1..10] of integer;

 i: integer;

 

begin

 for i := 1 to 10 do Read(a[i]);

 Writeln('Введённые числа в обратном порядке:');

 for i := 10 downto 1 do Write(a[i], ' ');

end.

Answer 2

Вот пример программы на языке PascalABC.NET, которая выполняет ввод 10 элементов массива с клавиатуры и выводит их на экран в обратном порядке:

pascalCopy code
program ReverseArray;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  writeln('Введите 10 элементов массива:');
  
  // Ввод элементов массива
  for i := 1 to 10 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;
  
  writeln('Элементы массива в обратном порядке:');
  
  // Вывод элементов массива в обратном порядке
  for i := 10 downto 1 do
  begin
    writeln('Элемент ', 11 - i, ': ', arr[i]);
  end;
end.

Эта программа объявляет массив arr из 10 элементов и использует цикл для ввода значений с клавиатуры. Затем она выводит элементы массива в обратном порядке, начиная с последнего элемента и заканчивая первым.