Упражнение 2 (Одномерные массивы)

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

PROGRAM PRG4_2;

//описываем константу (для определения размерности массива в разделе описания переменных)

CONST M = 100;

//описываем переменные

VAR MAS : ARRAY[1..M] OF INTEGER; //одномерный массив целого типа

I, K, N : INTEGER;

BEGIN

WRITE(‘ВВЕДИТЕ РАЗМЕР МАССИВА N = ‘);

READLN(N); //вводим размерность массива с клавиатуры

К:=0; //присваиваем начальное значение переменной K

//организовываем цикл для ввода элементов массива (количество элементов определяется значением переменной N

FOR I := 1 ТО N DO

BEGIN

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

READLN(MAS[I]);

END;

//организовываем цикл для определения количества одинаковых пар соседних элементов массива – счетчик цикла принимает значение от 1 до N-1

FOR I := 1 TO N-1 DO

IF MAS[I] = MAS[I+1] THEN //определяем одинаковые пары – текущий элемент и следующий за ним соседний элемент, если условие принимает значение True, то значение переменной K увеличиваем на 1

К := K+1;

WRITELN(‘OДИHAKOBЫX ПАР СОСЕДНИХ ЭЛЕМЕНТОВ ‘, К) //выводим значение переменной k – количество одинаковых пар соседних элементов одномерного массива

END.

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

— формируем тело программы и описываем переменные (переменные описываются в разделе описания переменных, который начинается с ключевого слова var) – указываем имена переменных и их тип;

— вводим длину массива N (используем процедуру READLN), значение элементов массива (используем цикл с параметром, цикл выполняется N раз, т.е. счетчик i принимает значения от 1 до N) и устанавливаем начальное значение К (для подсчета одинаковых пар соседних элементов одномерного массива) – начальное значение равно 0, т.е. до выполнения подсчета считается, что одинаковых пар нет;

— последовательно просматриваем элементы (это выполняется в теле цикла с параметром), и если очередной элемент одномерного массива MAS[ I ] равен следующему элементу массива MAS[I +1], то увеличиваем значение переменной К на единицу (К := K+1);

— выводим результат (используем процедуру WRITELN) .

Переменные:

MAS – одномерный массив чисел (элементы массива – это числа целого типа данных, размерность массива равна M, где М – это константа, значение которой равно 100);

N – размер одномерного массива, который вводит пользователь с клавиатуры;

I – переменная цикла (счетчик) целого типа;

К – количество одинаковых пар соседних элементов.