Помогите,бедной студентке составить программку...
Дан массив А(m).m=<15.Переписать элементы массива в обратном порядке и найти их сумму. Вывести на печать старый массив,новый массив и полученную сумму...

Вот как то так:

uses Crt;
const m = 15; {Ставишь сколько элементов будет в массиве}
var A,B : array [1..m] of Integer;
    i,j,sum : Integer;
begin
     Clrscr;
     WriteLn('Input Array A:');
     for i := 1 to m do begin
        Write('Element [',i,']:');
        ReadLn(A[i]);
     end;
     j := 0;
     sum := 0;
     for i := m downto 1 do begin
        inc(j);
        B[j] := A[i];
        sum := sum + A[i];
     end;
     WriteLn;
     WriteLn('Old Array:');
     for i := 1 to m do
        Write(A[i],' ');
     WriteLn;
     WriteLn('New Array:');
     for i := 1 to m do
        Write(B[i],' ');
     WriteLn;
     WriteLn('Sum Elements Of Array:');
     WriteLn(sum);
     ReadKey;
end.

kent, нигде ведь не сказано, что надо хранить оба массива

uses crt;
const
   n=4;
var
   x : array[1..n] of integer;
  i,s,temp: integer;

begin

   clrscr;

   s := 0;

   for i := 1 to n do begin
      write('x[',i,']=');
      readln(x[i]);
      inc(s,x[i]);
   end;

   write('Array : ');

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

   writeln;

   write('Convert Array : ');

   for i := 1 to n div 2 do begin
      temp := x[i];
      x[i] := x[n-i+1];
      x[n-i+1] := temp;
   end;

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

   writeln;

   write('s=',s);

   readln;

end.

Guest
А, простите, под суммой что имеется в виду? Сумма элементов или поэлементное сложение массивов?

klem4, так там и не сказано что надо хранить только один массив...

kent, про один как раз сказано ...


а вот про второй нислова, вобщем надо автора дождаться тога все и разъяснится.

А вот это:

тоже можно поразному понять...
Когда автор напишет, тогда и узнаем что он имел ввиду...