Какой код написать на Паскале для следующей задачи: Монеты . У вас имеется N монет, некоторые из них лежат решкой

Задача: "Монеты"

Инструкция:
Для решения этой задачи на Паскале мы можем использовать массив для хранения состояния каждой монеты. Создадим массив размером N и заполним его значениями, представляющими состояние каждой монеты (0 - решка, 1 - герб). Затем мы будем перебирать все возможные комбинации переворота монет и считать количество перевернутых монет для каждой комбинации. Найдем минимальное количество перевернутых монет и выведем его.

Приведу пример кода на Паскале, который решает эту задачу:

Pascal

program Coins;

var

  coins: array of Integer; // объявление массива

  N, i, j, minFlips, tempFlips: Integer;

begin

  Write("Введите количество монет (N): ");

  Readln(N);

  

  SetLength(coins, N); // задаем размер массива

  

  for i := 0 to N-1 do // вводим состояние монет

  begin

    Write("Введите состояние монеты ", i+1, " (0 - решка, 1 - герб): ");

    Readln(coins[i]);

  end;

  

  minFlips := N; // изначально предполагаем, что нужно перевернуть все монеты

  

  for i := 0 to N-1 do // перебираем все комбинации переворота монеты i

  begin

    tempFlips := 0;

    

    for j := 0 to N-1 do // считаем количество перевернутых монет

    begin

      if coins[j] <> coins[i] then

        Inc(tempFlips);

    end;

    

    if tempFlips < minFlips then

      minFlips := tempFlips; // обновляем минимальное количество перевернутых монет

  end;

  

  Writeln("Минимальное количество монет, которые нужно перевернуть: ", minFlips);

end.

Совет:
Для лучшего понимания задачи стоит представить себя в роли физического манипулятора монетами. Можно использовать лист бумаги и физически переворачивать монеты, чтобы лучше понять логику задачи и составить соответствующий план действий.

Задание для закрепления:
Напишите программу, которая находит минимальное количество монет, которые нужно перевернуть, чтобы все они оказались одной и той же стороной вверх для следующего примера:
Входные данные: N = 5, состояние монет - 1 0 1 0 1
Ожидаемый результат: Минимальное количество монет, которые нужно перевернуть: 2