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

var T : array [1..10] of integer; C : array [1..10] of real; {если цена не дробная то можно C : array [1..10] of integer; и a:integer;} i : integer; a : real; begin a:=0; for i := 1 to 10 do begin readln(T); readln(C); end; for i := 1 to 10 do a := T*c + a; writeln; writeln(a); en