2. Рост учащихся класса представлен в виде массива. Определите количество учащихся, рост которых больше среднего роста по классу.

Объявим массив констант, который будет содержать рост 10 учащихся, высчитаем среднее значение возраста и запишем результат в переменную sr_rost. Затем в цикле посчитаем количество человек, рост которых больше среднего показателя, и запишем в перемнную k.

var k: integer;
    sum, sr_rost: real;
const rost: array[1..10]
 of real = (155, 160, 170, 180, 163, 172, 167, 164, 160, 169);
begin
 for var i := 1 to 10 do
  sum := sum + rost[i];
 sr_rost := sum / 10;
 writeln('Средний рост: ', sr_rost);
 k:=0;
 for var i := 1 to 10 do
  if rost[i] > sr_rost then
    k := k + 1;
 writeln('Количество учащихся с ростом больше среднего: ', k);
end.
Другие задания