Информатика 10 класс(паскаль) Элементы массива могут принимать значения от 150 до...

Question

Информатика 10 класс(паскаль)
Элементы массива могут принимать значения от 150 до 200(рост учащихся). посчитать средний рост среди учащихся класса, которые попадут в школьную баскетбольную команду( только больше 180 см)
помогите пожалуйста

Comments

В турбо паскале)

Answer 1

Var a, i, k: integer;
    r: array of integer;
    sr: Real;
begin
  write('Введите количество учящихся в классе: ');
  readln(a);
  setlength(r, a);
  randomize;
  k := 0;
  sr := 0;
  writeln('Рост учащихся:');
  for i := 0 to a - 1 do
  begin
    r[i] := random(200 - 150 + 1) + 150;
    write(r[i] + ' ');
    if r[i] > 180 then
    begin
      k := k + 1;
      sr := sr + r[i];
    end;
  end;
  writeln;
  writeln('Из них в комманду попадут ' + k + ' человек.');
  write('Их средний рост - ' + sr / k);
end.

Comments

спасибо большое