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

Question

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

Answer 1

Var T:array[1..10] of integer;
C:array[1..10] of integer;
k,i:integer;
begin;
for i:=1 to 10 do
begin;
Writeln('Value of ',i,' product');
readln(T[i]);
Writeln('Price of ',i,' product');
readln(C[i]);
k:=k+C[i]*T[i];
end;
writeln('Result:',k);
end.