Program PR10_1;
Var A:array[1..10] of integer;
S,i: Integer;
Begin
{Введення елементiв масиву}
For i:=1 to 10 do
 Begin
 Write('Введiть елемент масиву A[',i,']=');
 ReadLn(A[i]);
 End;
{Обчислення суми елементiв масиву}
S:=0;
For i:=1 to 10 do S:=S+А[i];
 WriteLn('S = ',S);
End.
Результати роботи програми:
Введiть елемент масиву A[1]= 21
Введiть елемент масиву A[2]= 18
Введiть елемент масиву A[3]= -3
Введiть елемент масиву A[4]= 11
Введiть елемент масиву A[5]= 97
Введiть елемент масиву A[6]= 16
Введiть елемент масиву A[7]= 43
Введiть елемент масиву A[8]= 27
Введiть елемент масиву A[9]= 123
Введiть елемент масиву A[10]= 987
S=1340