Задание
Написать программу на языке питон
Случайно рядом.
Заполните массив случайными N - числами в интервале [0,5]. Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом.
Формат входных данных
N. N – целое число, в диапазоне от 1 до 1 000 000.
Формат выходных данных
Вывести полученный массив, в первой строке, каждый элемент через пробел. Далее, если в массиве есть одинаковые элементы стоящие рядом, ты вывести «YES» и через пробел индексы таких элементов. В противном случае вывести NO.
Пример
Входные данные
Выходные данные
6
1 2 3 3 2 1
YES 2 3
6
NO
• В примере только формат вывода. Т. к. элементы случайны, даже при одинаковых входных данных, результат может быть разный.

shift-шифт и caps loct-капс лук

в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов.

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.

напиши само ,я