Question

Известны данные о мощности двигателя 30моделей. Сколько машин мощностью выше 100Лс. помогите пожалуйста, очень нужно:)))

Answer 1

Const
  n=30;
var
  i,k,m:integer;
begin
  Randomize;
  Writeln('Заданы мощности:');
  k:=0;
  for i:=1 to n do
  begin
    m:=Random(100)+50;
    Write(m:4);
    if m>100 then k:=k+1
  end;
  Writeln;
  Writeln('Количество машин с мощностью больше 100 л.с. равно ',k)
end.

Тестовое решение:
Заданы мощности:
 147 126  69 149 121 112  69 138 144 135 148 133  86 101 109  82  60 126  80  96  66 113  77  86 147 100 131 146  84  70
Количество машин с мощностью больше 100 л.с. равно 17