Напишите команды выборки для получения справки с использованием сложных логических выражений: определить все даты до апреля 2018 года, когда температура была ниже нуля. определить фамилии всех учеников, которые посещают занятия по музыке и по хореографии. получить список всех хорошистов по гуманитарным дисциплинам. определить фамилии авторов книг с названием «сказки», выпущенных после 1985 года. получить фамилии авторов книг и названия книг, выпущенных в период с 1990 по 2000 год.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),10,99).Sorted.ToArray;
a.Println;
var k:=ReadInteger('Сколько значений удалить?');
if k>=a.Length then Writeln('Задание не имеет смысла')
else begin
var s:=ReadArrInteger('Вводите значения через пробел:',k);
a:=a.Where(x->not (x in s)).ToArray;
a.Println
end
end.
Пример
n= 17
12 14 17 30 31 34 40 41 45 46 67 76 76 78 86 87 93
Сколько значений удалить? 4
Вводите значения через пробел: 30 76 40 93
12 14 17 31 34 41 45 46 67 78 86 87