Надо перевести программу с паскаля на кумир, program supermarket; var t : array[1..10] of integer; c : array[1..10] of real; i : integer; sum : real; begin sum: =0; for i: =1 to 10 do begin readln(t[i],c[i]); sum: =t[i]*c[i] + sum; end; writeln(sum); end.
нач
цел таб T[1:10]
вещ таб C[1:10]
цел i; вещ sum
sum:=0
нц для i от 1 до 10
ввод T[i],C[i]
sum:=sum+C[i]*T[i]
кц
вывод sum
кон