Question

Тема: Массивы в Паскале Вы посетили магазин и купили 20 видов товара. В таблицу TOVAR[1:20] вы записали количество купленного товара каждого вида. В таблицу CENA[1:20] записали цены единиц каждого вида товара соответственно. Составьте на Паскале программу вычисления общей стоимости всех покупок.

Answer 1

Программа на скрине! Надеюсь помог!

Answer 2

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

program CalculateTotalCost;
var
  TOVAR: array[1..20] of integer; // количество купленного товара каждого вида
  CENA: array[1..20] of real; // цены единиц каждого вида товара
  i: integer;
  totalCost: real;

begin
  // Заполнение массивов TOVAR и CENA данными
  // ...

totalCost := 0;
  for i := 1 to 20 do
  begin
    totalCost := totalCost + TOVAR[i] * CENA[i]; // вычисление общей стоимости каждого вида товара и суммирование
  end;

writeln('Общая стоимость всех покупок: ', totalCost:0:2);
end.

В данной программе мы используем два массива TOVAR и CENA для хранения количества купленного товара каждого вида и цен единиц товара соответственно. Затем мы инициализируем переменную totalCost нулевым значением и с помощью цикла проходим по каждому элементу массивов, умножая количество товара на его цену и суммируя результаты. Наконец, мы выводим общую стоимость всех покупок.