Дан массив "B" содержащий 10 целых чисел.
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
Напишите программу (Pascal), которая вычисляет сумму значения всех элементов массива и выводит ее на монитор.

11 Сен 2019 в 08:49
244 +1
0
Ответы
1

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.

20 Апр 2024 в 01:44
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир