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

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

1. Сначала вводим массив из 10 целых чисел.

2. Находим максимальное значение в массиве.

3. Затем проходим по массиву и считаем количество элементов, равных этому максимальному значению.

Пример кода:

pascal
Копировать
program MaxCount;
var
  arr: array[1..10] of integer;  // Массив из 10 элементов
  max, count, i: integer;
begin
  // Вводим элементы массива
  for i := 1 to 10 do
  begin
    write('Введите элемент массива [', i, ']: ');
    readln(arr[i]);
  end;
  // Находим максимальное значение массива
  max := arr[1];
  for i := 2 to 10 do
    if arr[i] > max then
      max := arr[i];
  // Считаем количество элементов, равных максимальному значению
  count := 0;
  for i := 1 to 10 do
    if arr[i] = max then
      count := count + 1;
  // Выводим результат
  writeln('Количество элементов, равных максимальному значению: ', count);
end.

Пояснение:

1. В первой части программы мы заполняем массив из 10 элементов.

2. Затем находим максимальное значение с помощью простого цикла.

3. В третьей части программы подсчитываем, сколько элементов в массиве равны этому максимальному значению, увеличивая переменную count.

4. В конце выводим количество таких элементов.