Вы посетили магазин и купили 10 видов товара.В таблицу T[1:10] вы записали количество...

Question

Вы посетили магазин и купили 10 видов товара.В таблицу T[1:10] вы записали количество купленного товара каждого вида.В таблицу C[1:10] записали цены единиц каждого вида товара соответственно.Составьте алгоритм вычисления общей стоимости всех покупок.
помогите семестровая решается очень нужно)))

Comments

кто поможет?(

---

ауу?

---

Супер-Мэн здесь. Это что на экселе ? Сейчас будет

---

Или стоп, это можно массивами обложить

Answer 1

Const n = 10;
var
    T: array [1..n] of integer;
    C: array [1..n] of real;
    i: integer;
    sum: real;

begin
    sum := 0;
    for i := 1 to n do
    begin
        readln(T[i], C[i]);
        sum := sum + T[i] * C[i];
    end;
    writeln;
    writeln('sum = ',sum);
end.