Задача с массивами Опции

[Guest]

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

[kent]

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

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.