Question

В классе 20 учеников. Составьте программу, которая определяет количество учеников, чей рост превышает средний. Рост должен задаваться случайными числами в диапазоне от 150 до 190. Напишите программу в текстовом документе, либо в программе Pascal ABC

Answer 1

Const n=20;

Var i, k:integer ;s:real ;

A:array [1..200]of Integer ;

Begin

S:=0;

For i:=1 to N do begin

Write(' ') ;

a[i]:=random(41)+150;

S:=s+a[i];

Writeln(' ', a[i]) ;

End;

S:=s/n;

For i:=1 to N do begin

If(a[i] >s) then k:=k+1;

End;

Writeln ( ' ', k) ;

End.

Answer 2

Привет! Вот пример программы на языке Pascal ABC, которая определяет количество учеников, чей рост превышает средний. Программа генерирует случайные числа для роста каждого ученика и сравнивает их со средним значением роста.

pascalCopy code
program CountStudentsAboveAverageHeight;

const
  NumberOfStudents = 20;
  MinHeight = 150;
  MaxHeight = 190;

var
  Heights: array[1..NumberOfStudents] of Integer;
  Sum, AverageHeight, CountAboveAverage: Real;
  i: Integer;

begin
  Randomize;

  // Генерация случайных чисел для роста каждого ученика
  for i := 1 to NumberOfStudents do
    Heights[i] := Random(MaxHeight - MinHeight + 1) + MinHeight;

  // Вычисление суммы роста всех учеников
  Sum := 0;
  for i := 1 to NumberOfStudents do
    Sum := Sum + Heights[i];

  // Вычисление среднего значения роста
  AverageHeight := Sum / NumberOfStudents;

  // Подсчет количества учеников, чей рост превышает средний
  CountAboveAverage := 0;
  for i := 1 to NumberOfStudents do
  begin
    if Heights[i] > AverageHeight then
      CountAboveAverage := CountAboveAverage + 1;
  end;

  // Вывод результата
  writeln('Количество учеников, чей рост превышает средний: ', CountAboveAverage);
end.

Скопируйте этот код в редактор Pascal ABC и запустите программу. Она сгенерирует случайные числа для роста каждого ученика, вычислит средний рост и определит количество учеников, чей рост превышает средний. Результат будет выведен в консольном окне.