Question

В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов. Visual Basic

Answer 1

Var a:array [1..12] of integer;

   sym,i:integer;

   

BEGIN

 

For i:=1 to 12 do

Begin

  Read(a[i]); // Ввод стоимости

  sym:=sym+a[i];

End;

 

Write(sym);

 

END.

Answer 2

Для вычисления общей стоимости всех предметов в массиве в Visual Basic, вы можете использовать следующий код:

vbCopy code
Module Module1
    Sub Main()
        Dim costs(11) As Double ' Объявляем массив для хранения стоимостей
        Dim totalCost As Double = 0 ' Переменная для хранения общей стоимости
        
        ' Заполняем массив данными (предположим, что стоимости уже заданы)
        costs(0) = 10.5
        costs(1) = 20.0
        ' ... заполните остальные элементы массива
        
        ' Вычисляем общую стоимость
        For Each cost As Double In costs
            totalCost += cost
        Next
        
        Console.WriteLine("Общая стоимость всех предметов: " & totalCost)
    End Sub
End Module

В этом примере предполагается, что у вас уже есть массив costs, который содержит стоимости 12 различных предметов. Вы можете заменить значения в массиве на реальные стоимости предметов.

Пример выше использует цикл For Each, чтобы пройти по всем элементам массива costs и добавить их к переменной totalCost. В конце выводится общая стоимость всех предметов.