FreePascal.ru

Спасибо Вам !

program Sum_1mas;

var
a:array [1..10] of integer:
i, s : integer;
begin
writeln(' Введите 10 чисел ' );
for i:=1 to 10 do readln(a[i]);
s:=0;
for i:1 to 10 do s:=s+a[i];
writeln('исходный массив');
for i:=1 to 10 write(a[i], ' ');
writeln('ответ');
writeln(s);
readln;
end.

Программа ...