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

Question

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

Answer 1

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