Множества

[mishanya6]

помогите сделать лабу please!!!

Дана матрица А размерностью [N х N] элементов целого типа из диапазона от -127 до 127. Не используя вспомогательных массивов и не изменяя порядка следования элементов в матрице А определите, где различных элементов в матрице больше: под главной диагональю матрицы, или же над ней, и выведите на экран различные элементы найденной части матрицы в порядке их возрастания.

[TinMan]

Заводишь два множества: above и under - и очищаешь их.
Проходишь по области матрицы над ГД и делаешь include(above,a[i]).
Потом то же самое с нижней областью и множеством under.
Количество элементов каждого множества считаешь, проходя в цикле по всем элементам и смотря, нажодится ли текущий в множестве (операция in).
Сравниваешь полученные числа (мощности) и определяешь, в каком множестве больше элементов.
Вывод точно так же, только вместо плюсования счетчика оператор write.
Все, вроде.

[Serge_Bliznykov]

и делаешь include(above,a[i]).

только напрямую так не получится (множества в Паскаль могут быть от нуля до 255)

поэтому надо сдвигать все числа на +127: include(above, a[i] + 127);

в данном случае это будет выглядеть так:

var i,j, 
      kAbove, kUnder  : integer;
    above, under : set of byte;
begin
  above := [];
  under := [];
  for i:=1 to n do
    for j:=1 to n do
      if i<j then Include(above, A[i,j]+127)
      else
        if i>j then Include(under, A[i,j]+127);

  
  {подсчитать мощность множества}
   kAbove := 0;
   kUnder := 0;
   for i:=0 to 255 do begin
     if i in Above then Inc(kAbove);
     if i in Under then Inc(kUnder);
   end;

   WriteLn('всего различных элементов НАД главной диагональю: ', kAbove);
   WriteLn('всего различных элементов ПОД главной диагональю: ', kUnder);