Найти число элементов массива Т меньших С — Pascal(Паскаль)

uses crt;

var
  m, i, c, summa, num: integer;
  t: array [1 .. 10000] of integer;

begin
  clrscr;
  writeln('Введите размер массива t(m)');
  readln(m);
  writeln('Введите число C');
  readln(c);
  writeln('Введите элементы массива t(m)');
  FOR i := 1 TO m do
  begin
    readln(t[i]);
  end;
  FOR i := 1 TO m do
  begin
    IF t[i] > c THEN
    begin
      summa := summa + t[i];
      num := num + 1;
    end;
  end;
  writeln('Среднее арифметическое элементов больше C равно ', summa / num:7:2);
  writeln('Количество элементов меньше С равно ', m - num);

end.

Leave a Comment