Question

Дан целочисленный массив из 30 элементов. Найти количество элементов, равных максимальному. PASCAL

Answer 1

program raf105;

var

 a:array[1..30] of integer;

 max,i,c:integer;

begin

max:= -10000;

writeln('Заполните массив');

for i:=1 to 30 do

begin

 readln(a[i]);

 if a[i] > max

   then max:= a[i];

end;

for i:=1 to 30 do

 if a[i] = max

   then c+= 1;

writeln('Количество элементов равных максимальному: ',c);

end.

PascalABC 3.4.2

Answer 2

Для нахождения количества элементов, равных максимальному, в целочисленном массиве из 30 элементов в Pascal, можно использовать следующий код:

pascalCopy code
program FindMaxCount;

const
  N = 30; // Количество элементов в массиве

var
  arr: array[1..N] of Integer;
  i, maxValue, countMax: Integer;

begin
  // Вводим элементы массива
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Находим максимальное значение в массиве
  maxValue := arr[1];
  for i := 2 to N do
  begin
    if arr[i] > maxValue then
      maxValue := arr[i];
  end;

  // Находим количество элементов, равных максимальному значению
  countMax := 0;
  for i := 1 to N do
  begin
    if arr[i] = maxValue then
      Inc(countMax);
  end;

  // Выводим результат
  writeln('Максимальное значение в массиве: ', maxValue);
  writeln('Количество элементов, равных максимальному: ', countMax);

  readln;
end.

Пользователю предлагается ввести 30 элементов массива, после чего программа находит максимальное значение и подсчитывает количество элементов, равных этому максимальному значению. Результат выводится на экран.