Задача

[mara51]

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

[Stilet]

Ты сможешь показать код ввода данных по одному пассажиру?

[mara51]

Нет, подскажите пожалуйста

[newerow1989]

const c=30;
var i,n:integer;
    m,s:real;
begin
   Write('Kol-vo passazhirov N = ');
   Readln(n);
   s:=0;
   For i:=1 to n do
   begin
      Write('Ves bagazha: m',i,' = ');
      Readln(m);
      Writeln('Stoimost = ',m*c:5:2);
      s:=s+m;
   end;
   Writeln('Itogo = ',s:5:2,' kg');
   Readln;
end.

Сойдет?

[Stilet]

Ну хоть как-нибудь можешь попробовать? )

[mara51]

Спасибо за решение, а можно в блок схеме увидеть как это выглядит, если не сложно?

[newerow1989]

Вот на скорую руку

[mara51]

Спасибо Вам огромное!!!!

[newerow1989]

Пожалуйста! Там я кое-что подправил!

[mara51]

Спасибо, увидела