Известны стоимость в долларах нескольких марок легковых автомобилей и мотоциклов

[Борисс]

Известны стоимость в долларах нескольких марок легковых автомобилей и мотоциклов

Известны стоимости (в долларах) нескольких марок легковых автомобилей и мотоциклов. Верно ли, что средняя стоимость автомобилей превышает среднюю стоимость мотоциклов более чем в 3 раза? Стоимость одного автомобиля превышает $5000, что больше стоимости любой марки мотоцикла. :jazik:

 

[AlexZir]

Есть и такие мотоциклы, стоимость которых в несколько раз превосходит среднюю стоимость автомобиля. А есть такие автомобили, которые и по цене металлолома никто не купит. Так что все относительно ).

Условие задачи настолько сумбурное и нелогическое, что вряд ли вы без дополнительных разъяснений с вашей стороны сможете получить помощь.

 

[Vladimir_S]

Условие задачи настолько сумбурное и нелогическое, что вряд ли вы без дополнительных разъяснений с вашей стороны сможете получить помощь.

Да не, Лёш, - можно. Думаю, имеется в виду что-нибудь в таком роде:

Var
 Nmot,Ncar,i:Byte;
 Sum_mot,Sum_car,Price:Real;

Begin
 Write('Number of motorcycles = ');
 Readln(Nmot);
 Write('Number of cars = ');
 Readln(Ncar);
 Sum_mot:=0;
 Sum_car:=0;
 Writeln('Motorcycles:');
 for i:=1 to Nmot do
  begin
   repeat
    write('Next model price: ');
    Readln(Price);
    if Price>=5000 then writeln('Too expensive!!!');
   until Price<5000;
   Sum_mot:=Sum_mot+Price;
  end;
 writeln;
 Writeln('Cars:');
 for i:=1 to Ncar do
  begin
   repeat
    write('Next model price: ');
    Readln(Price);
    if Price<=5000 then writeln('Too cheap!!!');
   until Price>5000;
   Sum_car:=Sum_car+Price;
  end;
 writeln;
 Writeln(Sum_car/Ncar>Sum_mot/Nmot*3);
 Readln
End.