Question

Перевести на язык Паскаль
алг Общая стоимость
вещ таб Т[1:10], C[1:10]
цел I, вещ AllPrice
нач
AllPrice:=0
для I от 1 до 10 шаг 1 повторять
нц
вывод "I, " товар"
вывод "Количество товара:"
ввод T[I]
вывод "Цена за единицу товара:"
ввод C[I]
AllPrice:=AllPrice + T[I] * C[I]
кц
вывод "Общая стоимость покупок = ", AllPrice, " руб."
кон

Answer 1

Program Total_Cost;

Var T:array [1..10] of real; C:array [1..10] of real;

      I: integer; AllPrice:real;

Begin

AllPrice:=0;

for I :=1 to 10 do

    begin

        write (I, ' товар');

write( 'Количество товара:');

read T[I];

write( 'Цена за единицу товара:');

read( C[I]);

AllPrice:=AllPrice + T[I] * C[I];

end;

write( 'Общая стоимость покупок = ', AllPrice, ' руб.');

end.