Сформировать новый массив из элементов массива М(10), встречающихся в этом массиве только один раз.

const
  N = 10; //количество элементов массива(можно менять)
 
var
  M, OneTime: array[1..1000] of integer;
  i, j, c: integer;
  f: boolean; // f = true - элемент встречается только 1 раз
              // f = false - элемент встречается больше 1 раза  
  
begin
  writeln('Исходный случайный массив:');
  randomize;
  for i := 1 to N do
  begin
    m[i] := -10 + random(21); //случайный элемент [-10, 10]
    write(' ', m[i]) //выводим элемент
  end;
  writeln;
  c := 1; //начальное количество элементов нового массива
  OneTime[1] := m[1]; //первый элемент нового массива равен первому элементу исходного
 { Проверяем остальные элементы: } 
  for i := 2 to n do 
  begin
    f := true; //элемент еще не встречался
   { Сравниваем i-й элемент массива со всеми предыдущими: } 
    for j := 1 to i - 1 do
      if m[i] = m[j] then //если элементы равные
      begin 
        f := false; //то присваиваем соответствующее f
        break //и выходим из цикла (дальше не имеет смысла проверять)
      end;
    if f then //если элемент встретился 1 раз
     begin 
       inc(c); //то увеличиваем количество элементов нового массива на 1
       OneTime[c] := m[i] //и присваиваем найденный элемент новому массиву
     end
  end;
  writeln;
 { Выводим все найденные элементы: } 
  writeln('Массив различных чисел:');
  for i := 1 to c do write(' ', OneTime[i])
end.

const
  m = 4;
  n = 4;
 
var
  X: array[1..n, 1..m] of integer;
  i, j, Xmin, Xmax: integer;
  Z: real;
  
begin
  Xmin := 200;
  Xmax := 0;
  writeln('Вводим случайную матрицу ', n, 'x', m, ':');
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      x[i, j] := random(200) - 100;
      write(x[i, j]:4);
      if x[i, j] > 0 then
       begin
         if x[i, j] > Xmax then Xmax := x[i, j];
         if x[i, j] < Xmin then Xmin := x[i, j];
       end;  
    end;
    writeln;
  end;
  writeln;
  Z := Xmin / (Xmin + Xmax);
  writeln('Результат:');
  writeln(' Z = ', Z:0:5)
end.