Стоимость доставки самолетом 1 кг. груза составляет 30 рублей. Для каждого из N пассажиров введите вес багажа, который он перевозит, подсчитайте, сколько каждый пассажир должен заплатить за перевозку своего багажа. Вычислите также общий вес груза, перевозимого пассажирами.(паскаль)
More Questions From This User See All
Answers & Comments
Verified answer
Vari, v, n, vm: longint;
ar: array of integer;
begin
vm := 0;
readln(n);
setlength(ar, n);
for i := 1 to n do
begin
read(v);
ar[i - 1] := v * 30;
vm := vm + v;
end;
writeln;
for i := 1 to n dowrite(ar[i - 1], ' ');
writeln;
write('Общий вес: ', vm);
end.