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

FuzziBoy FuzziBoy    3   15.08.2019 02:20    14

Ответы
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика