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 = ');
|
