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

Question

Информатика

Маргарита

30 августа, 20:45

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

+1

Ответы (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.