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

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

Задать свой вопрос
Говтвань Андрюха
В турбо паскале)
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] gt; 180 then
    begin
      k := k + 1;
      sr := sr + r[i];
    end;
  end;
  writeln;
  writeln('Из них в комманду попадут ' + k + ' человек.');
  write('Их средний рост - ' + sr / k);
end.
Арина Верховина
спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт