Подсчет пар оди­наковых соседних элементов — Pascal

Прикладное программирование Программирование на Pascal Подсчет пар оди­наковых соседних элементов — Pascal

Помечено: 

  • В этой теме 0 ответов, 1 участник, последнее обновление 1 месяц, 2 недели назад сделано Васильев Владимир Сергеевич.
Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #6822
      @admin
      StudLance.ru

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

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

      Переменные:

      1. MAS — массив чисел;
      2. N — размер массива;
      3. I — переменная цикла;
      4. К — количество одинаковых пар соседних элементов.

      Программа:

      program sosedi;
      const
        M = 100;
      var
        MAS: array [1..M] of integer;
        I, K, N: integer;
      begin
        write('размер массива: ');
        readln(N);
        K := 0;
        for I := 1 to N do
        begin
          write('элемент массива: ');
          readln(MAS[i]);
        end;
        for I := 1 to N - 1 do
          if MAS[I] = MAS[I + 1] then
            K := K + 1;
        writeln('одинаковых пар соседних элементов ', K);
      end.

      StudLance.ru

Просмотр 0 веток ответов
  • Для ответа в этой теме необходимо авторизоваться.
×