Question

РЕШИТЕ ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО! Вводится 100 чисел. Найти количество чисел, равных максимальному и количество чисел, равных минимальному. Паскаль

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrInteger(100);

 var (min, max) := (a.Min, a.Max);

 Writeln('Чисел, равных минимальному: ', a.Where(t -> t = min).Count);

 Writeln('Чисел, равных максимальному: ', a.Where(t -> t = max).Count)

end.

Answer 2

Хорошо, вот пример программы на языке Pascal, которая позволяет ввести 100 чисел и находит количество чисел, равных максимальному и минимальному значению:

pascalCopy code
program MaxMinCount;

const
  N = 100;

var
  numbers: array[1..N] of Integer;
  i, maxCount, minCount, maxNumber, minNumber: Integer;

begin
  // Вводим 100 чисел
  writeln('Введите ', N, ' чисел:');
  for i := 1 to N do
    readln(numbers[i]);

  // Предполагаем, что первое число является и максимальным, и минимальным
  maxCount := 1;
  minCount := 1;
  maxNumber := numbers[1];
  minNumber := numbers[1];

  // Проходим по оставшимся числам и обновляем максимальное и минимальное значение при необходимости
  for i := 2 to N do
  begin
    if numbers[i] > maxNumber then
    begin
      maxNumber := numbers[i];
      maxCount := 1;
    end
    else if numbers[i] = maxNumber then
      maxCount := maxCount + 1;

    if numbers[i] < minNumber then
    begin
      minNumber := numbers[i];
      minCount := 1;
    end
    else if numbers[i] = minNumber then
      minCount := minCount + 1;
  end;

  // Выводим результаты
  writeln('Количество чисел, равных максимальному: ', maxCount);
  writeln('Количество чисел, равных минимальному: ', minCount);
end.

Пожалуйста, скопируйте этот код в среду разработки на Pascal (например, Free Pascal) и выполните программу. Вы сможете ввести 100 чисел и получить количество чисел, равных максимальному и минимальному.