Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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







Дата добавления: 2015-09-07; просмотров: 378. Нарушение авторских прав; Мы поможем в написании вашей работы!




Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Предпосылки, условия и движущие силы психического развития Предпосылки –это факторы. Факторы психического развития –это ведущие детерминанты развития чел. К ним относят: среду...

Анализ микросреды предприятия Анализ микросреды направлен на анализ состояния тех со­ставляющих внешней среды, с которыми предприятие нахо­дится в непосредственном взаимодействии...

Типы конфликтных личностей (Дж. Скотт) Дж. Г. Скотт опирается на типологию Р. М. Брансом, но дополняет её. Они убеждены в своей абсолютной правоте и хотят, чтобы...

Разновидности сальников для насосов и правильный уход за ними   Сальники, используемые в насосном оборудовании, служат для герметизации пространства образованного кожухом и рабочим валом, выходящим через корпус наружу...

Дренирование желчных протоков Показаниями к дренированию желчных протоков являются декомпрессия на фоне внутрипротоковой гипертензии, интраоперационная холангиография, контроль за динамикой восстановления пассажа желчи в 12-перстную кишку...

Деятельность сестер милосердия общин Красного Креста ярко проявилась в период Тритоны – интервалы, в которых содержится три тона. К тритонам относятся увеличенная кварта (ув.4) и уменьшенная квинта (ум.5). Их можно построить на ступенях натурального и гармонического мажора и минора.  ...

Studopedia.info - Студопедия - 2014-2025 год . (0.013 сек.) русская версия | украинская версия