program SumOfArrayElements;
varB: array[1..10] of Integer;i, sum: Integer;
beginB[1] := 2;B[2] := 1;B[3] := 3;B[4] := 5;B[5] := 4;B[6] := 9;B[7] := 7;B[8] := 8;B[9] := 12;B[10] := 10;
sum := 0;
for i := 1 to 10 dobeginsum := sum + B[i];end;
writeln('Сумма значений всех элементов массива B: ', sum);end.
program SumOfArrayElements;
var
B: array[1..10] of Integer;
i, sum: Integer;
begin
B[1] := 2;
B[2] := 1;
B[3] := 3;
B[4] := 5;
B[5] := 4;
B[6] := 9;
B[7] := 7;
B[8] := 8;
B[9] := 12;
B[10] := 10;
sum := 0;
for i := 1 to 10 do
begin
sum := sum + B[i];
end;
writeln('Сумма значений всех элементов массива B: ', sum);
end.