Массив из 20 чисел задан датчиком случайных чисел на интервале [-15, 55]. Определить количество различных элементов в массиве.

begin var a := ArrRandom(20,-15,55); a.Println; Println('Результат:', a.Distinct.Count); end.

Пример работы:

Допустим, что первый болельщик был прав в том, что Наташа займет 1 место. Следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что Наташа займет второе место, значит, он был прав в том, что Рита займет третье место. Аналогично, Рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что Люда займет второе место. Остается Маша - четвертое место. Все болельщики правы лишь в одном из своих прогнозов, условие выполняется. Следовательно ответ: 1 место - Наташа, 2 место - Люда, 3 место - Рита и 4 место - Маша

Составь сам но вот основные идеи:
1)Базы данных позволяют хранить кучу инфы про дохренилион звёзд, планет и д.р.
2)Современные цифровые а тем более инфракрасные телескопы несовершенны, по этому картинку с них приходится долго редактировать разными прогами
3)Планеты сами по себе не видны т.к. не светятся поэтому их местоположение можно узнать лишь рассчитав изменение траектории звезд из-за гравитации этих планет. Такие тонкие расчёты может провести только комп.
4)Да и вообще всем современным оборудованием руководит компьютер упрощая жизнь учёного т.к. в современном оборудовании слишком много данных