Нещодавно Козак Вус знайшов чарівне коло! По ньому розташовано n вершин, так що вершини i та i+1 — сусідні для 1≤i Козак Вус почав робити наступні дії з цим колом. Він вибрав число х. Якщо вершини i та j сусідні та ai=aj =x, то він розрізає коло по дузі, що сполучає ці дві вершини. Іншими словами, він робить розріз між двома сусідніми вершинами, значеннях яких рівні x.
Чи можна вибрати так число х, щоб Козак Вус зробив принаймні два розрізи?

Вхідні дані
Перший рядок містить одне ціле число n (2≤n≤50) — кількість вершин на колі.

Другий рядок містить n цілих чисел a1 ,a2,…,an(1≤ai≤50) — масив a.

Вихідні дані
Виведіть «Yes», якщо можливо обрати таке число x, що Козак Вус зробить хоча б два розрізи, інакше виведіть «No».

Пример ввода #1
5
1 2 3 1 1
Пример ответа #1
Yes
Пример ввода #2
7
4 2 7 4 4 50 4
Пример ответа #2
Yes
Пример ввода #3
5
5 4 2 2 1
Пример ответа #3
No

по первому заданию:

обычно глубина цвета (не изображения) измеряется в битах.

Посмотрим сколько всего бит у нас есть:

384 килобайта = 384*1024 байт = 393216 байт

в каждом байте 8 бит, значит 393216*8 = 3145728 бит.

теперь посмотрим сколько у нас всего пикселей:

1024*768 = 786432 пикселей.

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

Разделим биты на пикселы:

3145728/786432 = 4 бита на пискел.

4 бита на пискел это 2^4 = 16 цветов.

ответ: глубина цвета изображения 4 бита или 16 цветов.

2ое задание:

Длина кода изображения равна 600 Кб, битовая глубина цвета - 16 битов. Какой размер растра используется для вывода изображения: 640х480 или 1024х768?

у нас есть 600Кб информации. 

Посмотрим сколько это бит

600(килобайт)*1024(байт в килобайте)*8(бит в байте) = 4915200 бит.

У нас каждая точка(пиксел) занимает 16 бит

Значит у нас: 4915200/16 = 307200 пикселей.

Посчиатем пикселы для разных разрешений (размеров растра)

640*480=307200

1024*768 = 786432

Значит ответ: размер растра у нас 640*480. (совпадают количества пикселей)

вот код:

uses crt;
var a:array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random*9 - 4;
end;
for i:=3 to 7 do
begin
writeln('a[',i,']=',a[i]:0:2);
end;
writeln('Press enter');
readln;
end.

Пояснения:

у тебя в условии промежуток [4,5) означает что 5 нельзя включать (скорее всего ошибка).

Есл это не ошибка переписывания условия , то добавляется еще одна линия, и программа получается:

uses crt;
var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random*9 - 4;
if(a[i]=5) then a[i]:=4.9999;
end;
for i:=3 to 7 do
begin
writeln('a[',i,']=',a[i]:0:2);

end;
writeln('Press enter');
readln;
end.

Обрати внимание, я еще добавил randomize; команду - она гарантирует, что случайные числа будут именно случайными