Стоимость доставки самолетом 1 кг. груза составляет 30 рублей. Для каждого из N пассажиров введите вес багажа, который он перевозит, подсчитайте, сколько каждый пассажир должен заплатить за перевозку своего багажа. Вычислите также общий вес груза, перевозимого пассажирами. (паскаль)

Question

Информатика

Петряня

9 сентября, 12:16

Стоимость доставки самолетом 1 кг. груза составляет 30 рублей. Для каждого из N пассажиров введите вес багажа, который он перевозит, подсчитайте, сколько каждый пассажир должен заплатить за перевозку своего багажа. Вычислите также общий вес груза, перевозимого пассажирами. (паскаль)

+2

Ответы (1)

Знаете ответ на вопрос?

Ольгуха · Answer 1

Var

i, 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 do write (ar[i - 1], ' ') ;

writeln;

write ('Общий вес: ', vm) ;

end.