ИНФОРМАТИКА ПОМОГИТЕ)) вы посетили магазин и купили 10 видов товара в таблицу Т[1:10] вы...

Question

ИНФОРМАТИКА ПОМОГИТЕ)) вы посетили магазин и купили 10 видов товара в таблицу Т[1:10] вы записали количество купленного товара каждого вида. В таблицу С[1:10] записали цены единиц каждого вида товара соответственно.!!! Составьте алгоритм вычисления общей стоимости всех покупок!!! На АЯ!! ​

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.

Comments

а можно по-другому? не через Паскаль?