Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.