<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1
a.Println;
if a.Where(x->x>=0).Distinct.Count>1 then
Writeln('Есть отличающиеся элементы')
else Writeln('Все элементы равны')
end.
<u>Примеры</u>
Длина последовательности: 4
1 1 1 -1
Все элементы равны
Длина последовательности: 5
0 1 1 0 -1
Есть отличающиеся элементы
Синий и синий,
Синий и зеленый,
Синий и красный,
Зеленый и зеленый,
Зеленый и красный,
Красный и красный
6 вариантов
В одном мегабайте 1024 килобайта, в каждом килобайте по 1024 байта.
в тоге получаем,что в 1 мегабайте 1024*1024=1048576 байта.
отсюда следует, что 0,25*1024=256 килобайт ,в итоге 256*1024 байта=262144 байта
В случае, если можно совместить два класса вместе (например, на втором уроке провести занятие для 10а и 10б одновременно), то минимально нужны 2 учителя информатики (одновременно проводятся только 2 урока).
Если классы совместить нельзя, то три учителя (смотрим на максимальное количество закрашенных клеток в строках)