READLN(N);

К:= 0;

FOR I:= 1 TO N DO

BEGIN

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

READLN(MAS[I]);

END;

FOR I:= 1 TO N-1 DO

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

WRITELN('OДИНАКОВЫХ ПАР СОСЕДНИХ ЭЛЕМЕНТОВ', К)

END.

 

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

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

- вводим длину массива N, значение элементов массива и устанавливаем начальное значение К;

- последовательно просматриваем элементы, и если очередной MAS[ I ] равен следующему MAS[I +1], то увеличиваем зна­чение К на единицу;

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

Переменные:

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

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

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

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

 

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

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

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

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

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

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

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

ОДИНАКОВЫХ ПАР СОСЕДНИХ ЭЛЕМЕНТОВ 2

 

Рис. 6.2. Результат работы PRG6J2

Задача 6.3 Дан массив чисел. Найти наибольший элемент, поставить его первым.

PROGRAM PRG6_3;

CONST M = 100;

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

I, K, NEW, N: INTEGER;

BEGIN

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

READLN(N);

WRITELN('BBEДИTE ', N,' ЭЛЕМЕНТОВ МАССИВА');

FOR I:= 1 TO N DO

READ(MAS[I]);

WRITELN;

NEW:= MAS[N];

K:=N;

FOR I:= N DOWNTO 1 DO

IF MAS[I]>NEW THEN

BEGIN

K:=l;

NEW:= MAS[I]

END;

MAS[K]:= MAS[1];

MAS[1]:= NEW;

FOR I:= 1 TO N DO

WRITE(MAS[I]: 4);

WRITELN

END.

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

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

- вводим длину массива N, значение элементов массива;

- последовательно, справа налево, просматриваем элементы и находим наибольший элемент NEW:= MAS[I], запоминая его порядковый номер К:= I;

- меняем местами первый элемент и найденный;

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

Переменные:

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

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

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

К - порядковый номер наибольшего элемента;

NEW - значение наибольшего элемента.

 

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