Ребята решить задачу по Технологии вычислительного интеллекта. Время контрольной ограничено! Очень благодарна, кто не пройдет мимо! Предметная область "Учет работы садового общества". При создании гиперкуба для многомерного представления данных были введены следующие элементы. Измерения: Все (уровне Тип, адрес), Хозяева (уровни №паспорта, ФИО, адрес проживания), Насаждения (уровни Наименование, Тип) (Таблица фактов в реляционной БД называется Выращивание Меры: Сумма (по полю Площа_розмищення), количество (записей в результирующей таблице после соединения). Написать на языке программирования MDX запрос к кубу для решения следующей задачи анализа: получить меры для определенных типов насаждений (организовать множество членов) и определенных адресов проживания хозяев (организовать множество членов).

Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.