Ответ:

program marasm;

var s,i:integer;

mas: array [1..10] of integer;

begin

s:=0;

for i:=1 to 10 do

begin

writeln('Введите элемент номер', i);

readln(mas[i]);

s:=s+mas[i];

end;

for i:=1 to 10 do begin write(mas[i], ' ');

end;

writeln('Сумма десяти элементов массива равна ', s);

end.