В одномерном массиве размерностью 2*n отсортируйте первую половину массива по убыванию, а вторую половину – по возрастанию. Можно использовать любой метод сортировки. Массив заполнить случайными положительными и отрицательными целыми числами.

PascalABC.NETbeginvar n := ReadInteger('n:');var a := ArrRandom(2*n,-99,99); a.Println; a := Arr(a[:n].OrderDescending + a[n:].Order); a.Printend.

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

Жасанды интеллекттің мақсаты - есептемейтін мәселелерді шешуге және мағыналы ақпаратты өңдеуді қажет ететін және адам миының құзыреті болып саналатын әрекеттерді жасауға қабілетті техникалық жүйелерді құру. Мұндай мәселелерге, мысалы, проблемаларды дәлелдейтін теорема, ойын проблемалары (айталық, шахмат ойнағанда), бір тілден екінші тілге аудару, музыка құру, визуалды бейнелерді тану, ғылым мен қоғамдық практиканың күрделі шығармашылық мәселелерін шешу кіреді. Жасанды интеллекттің маңызды міндеттерінің бірі - адам мақсаттарына жету үшін операцияларды автономды түрде орындай алатын және олардың әрекеттеріне түзетулер енгізетін зияткерлік роботтар құру.

1)
day integer  (PK)
month varchar(10) (PK)
temperature integer 
falls varchar(50)
wind varchar(50)

3) дату всетаки лучше задавать датой, а не число отдельно, месяц отдельно, условий на них писать море
год не указан, так что в следующем году ждут проблемы
не наложены ограничения на поля Осадки и Ветер, потому в них может быть написано что угодно, лучше все возможные варианты закинуть в отдельные таблицы

2)
не одна таблица а система таблиц конечно же
Автор
id integer (PK)
name vaechar(50)

Издательство
id integer (PK)
name vaechar(50)

Книга
id integer (PK)
name vaechar(50)
language varchar(50)
id_publisher integer (FK)

Произведение
id integer (PK)
name vaechar(50)
original_name varchar(50)
id_auther integer (FK)

Произведения в книге
id integer (PK)
id_book integer (FK)
id_proizvedenie integer (FK)