25 ! напишите команды выборки для получения справки с использованием сложных логических выражений: определить все даты до апреля 2018 года, когда температура была ниже нуля. определить фамилии всех учеников, которые посещают занятия по музыке и по хореографии. получить список всех хорошистов по гуманитарным дисциплинам. определить фамилии авторов книг с названием «сказки», выпущенных после 1985 года. получить фамилии авторов книг и названия книг, выпущенных в период с 1990 по 2000 год. в каждом пункте продумать и проиллюстрировать необходимые поля и записи. нужно выполнить на бланке или в тетради.

Информация (от лат. informatio — «разъяснение, изложение, осведомлённость») — сведения о чём-либо, независимо от формы их представления.
Информатика (от информация и автоматика) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений.
Компьютер (англ. computer, МФА: — «вычислитель») — устройство или система выполнять заданную, чётко определённую последовательность операций.
Текстовый редактор — самостоятельная компьютерная программа или компонент программного комплекса (например, редактор исходного кода интергрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности.
Графический редактор — программа (или пакет программ), позволяющая создавать и редактировать двумерные изображения с компьютера.

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.