Question

Составе программу ввода С клавиатуры элементов массива а[1..8] и вывода элементов массива в обратном порядке

Answer 1

uses crt;

var a:array[1..8] of integer;

   i:integer;

begin

    for i:=1 to 8 do

    a[i]:=random(10);

    for i:=1 to 8 do

    begin

         write(a[i]:3);

    end;

    writeln;

    for i:=8 downto 1 do

    write(a[i]:3);

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrReal(8);

 a[::-1].Println

end.