0 дауыс
16.1k көрілді

А тобының есебі:

N саннан тұратын А сандар тізбегі берілген. Осы сандар тізбегін кері ретімен шығару керек.

Мәліметтерді енгізу форматы

Енгізу файлының бірінші жолында N ( 1<=N<=1000000)  саны берілген-тізбектегі сандардың саны. Екінші жолда кемістікпен пробелмен бөлінген N сан берілген-А  тізбегінің сандары. Әрбір санның абсолют мәні 1000000-нан аспайды

Мәліметтерді шығару форматы

Бір жолда санды кемістік ягни пробел арқылы бөліп шыгарыңыз- А тізбегін кері ретімен шығарыңыз.

2 жауап

+1 дауыс
 
Жақсы жауап
program a;

var n,i:longint;

x:array[1..10000] of longint;

begin

readln(n);

for i:=1 to n do readln(x[i]);

for i:=n downto 1 do write(x[i],' ');

end.
0 дауыс
const
  n = 10;
var
  a : array [1..n] of integer;
  i : integer;
begin
  for i := 1 to n do
  begin
    write('введите ', i, ' элемент: ');
    readln(a[i])
  end;
  {вывод прямой}
  for i := 1 to n do write(a[i]:4);
  writeln;
  {вывод обратный}
  for i := n downto 1 do write(a[i]:4)
end.
...