элемменты заданого масива a(n) перепешите в новый масив b(n) в обратном порядке!

[finch]

решите мне задачю!pliz!!!!!!!!!!
вот она:
элемменты заданого масива a(n) перепешите в новый масив b(n) в обратном порядке!
мне завтра отчёт здавать! я уже 4 дня с ней мучаюсь!
ничего не получается!

[bill]

Ладно. Т.к. размер исходного массива a неизвестен то надо использовать функцию high(a).
В общем случае если n неизвестно то примерно так:
var a,b:array of integer;
begin k:=0;
\\ вводите значения сами\загружаете или используете random
for i:= high(a) downto low(a) do k:=k+1;
b[k]:=a[i]; /// т.е смотрит цикл от максимального эл-та до самого первого.
end;
если n известно то это еще проще.
For i:=n downto 1 do k:=k+1;
b[k]:=a[i];
Если же стоят конструкции типа такой: var a:array [2..39] of integer;
то вы вместо 1 в последнем цикле используете low(a). Но все-таки первый алгоритм наиболее универсальный.

[BlackCat]

на паскале или дельфи надо? задачка на 5 минут! на паскале так:
uses crt;
var a,b:array [1..N] of integer;
i:integer;
begin
clrscr;{очищаем экран}
randomze;{включаем генератор псевдослучайных чисел}
for i:=1 to n do a[i]:=random(100);{заполняем массив случайными числами}
for i:=1 to n do begin{записываем еще один массив в обратном порядке}
b[n-i+1]:=a[i];
end;
for i:=1 to n do write(a[i]:6);{выводим массив а}
writeln;{переходим на след строку}
for i:=1 to n do write(b[i]:6);{выводим массив b}
while not keypressed do;{пока не нажата клавиша не выходим из проги}
end.

[Alex21]

program Project2;
{$APPTYPE CONSOLE}
const
   N=5;
var
   a,b:array[1..N]of integer;
   i:integer;
begin
for i:=1 to N do
  begin
    Write('Введите ',i,'-й/',N,' элемент массива : ');
    ReadLn(b[i]);
  end;
 Writeln(' ');
 Write(' Исходный массив : ');
for i:=1 to N do
    Write(b[i],' ');
 WriteLn(' ');
 Writeln(' ');
 Write(' Обратный массив : ');
for i:= 1 to N do
  begin
   a[i]:=b[N-i+1];
   write(a[i],' ');
  end;
end.

[Carbon]

В этом разделе подобная задача уже была.