PROGRAM PRG6_1;

CONST M = 100;

VAR MAS: ARRAY[1..M] OF INTEGER;

I, MAX, K, N: INTEGER;

BEGIN

WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');

READLN(N);

WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА');

READLN(MAS[1]);

MAX:= MAS[1];

K:= 1;

FOR I:= 2 TO N DO

BEGIN

WRITE('BBEДИTE ЭЛЕМЕНТ МАССИВА');

READLN(MAS[I]);

IF MAX<MAS[I] THEN

BEGIN

MAX:= MAS[I];

K:= 1

END

ELSE

IF MAX = MAS[I] THEN К:= K+1;

END;

WRITELN('MAX =', MAX, 'ЭТИХ ЭЛЕМЕНТОВ', К)

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим длину массива N, значение элементов массива и устанавливаем начальное значение МАХ по первому числу;

- последовательно просматриваем элементы, и если очередной MAS[ I ] больше МАХ, то переприсваиваем значение МАХ:=Х и К:= 1;

- если MAS[ I ] = МАХ, то увеличиваем значение К на еди­ницу;

- выводим результат.

Переменные:

MAS - массив чисел;

N - размер массива;

I - переменная цикла;

МАХ - значение наибольшего элемента;

К - количество наибольших элементов.

ВВЕДИТЕ РАЗМЕР МАССИВА N = 6

ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА 5

ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА 6

ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА -12

ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА 148

ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА 54

ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА 148

МАХ = 148 ЭТИХ ЭЛЕМЕНТОВ 2

Рис. 6.1. Результат работы PRG6_1

Задача 6.2 Дан массив чисел. Найти, сколько в нем пар оди­наковых соседних элементов.

PROGRAM PRG6_2;

CONST M = 100;

VAR MAS: ARRAY[1..M] OF INTEGER;

I, K, N: INTEGER;

BEGIN

WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');