1. Создайте программу в Windows Forms, решив задачу. Задана квадратная матрица порядка N. Вычислить количество отрицательных элементов под главной диагональю матрицы. Матрицу отображать через dataGidView. Входные данные записываются а) через файл б) через элементы формы
, час остался!!

1. Нажать Enter и затем Tab
2. Нажать на символ абзаца
3. Выставить курсор в место вставки, нажать на правую кнопку мыши и выбрать Вставить
4. Один раз нажать на Backspace (←)
5. Два раза кликнуть по нему
6. Нажать на левую кнопку мыши в начале и тянуть мышь (с зажатой кнопкой) в конец текста.
7. Смотри выше
8. Выделить и нажать Backspace
9. Выделить, удалить и вставить новый
10. Нажать на клавиатуре один или несколько раз Ctrl + Z
11. Нажать Ctrl + Y
12. Несколько раз выполнить пункт 11
13. Выделить и нажать вырезать (потом вставить) или копировать
14. Нажать на панели сверху на Ж, К, Ч
15. Он копируется вместе с текстом
16. С инструментов на верхней панели
17. Нажав на соответствующие кнопки на панели.
18. Нажать Ctrl + S
19. С кнопки на панели
20. Повторить действие ещё раз

Ничего не сказано про повторяющиеся значения. Если не делать проверку на повторяющиеся значения, то вот программа (проверена на версии ПаскальАВС.Нет):

var
  x: array [1..10] of integer;
  y, z: array [1..15] of integer;
  i, j, k: integer;
  f: boolean;begin
//заполнение и распечатка массива Х
  for i := 1 to 10 do
  begin
    x[i] := random(10) + 1;
    write(x[i]:3);
  end;
  writeln;
 
//заполнение и распечатка массива У 
  for i := 1 to 15 do 
  begin
    y[i] := random(10) + 1;
    write(y[i]:3);
  end;
  writeln; 
 
//заполнение массива Z 
  for i := 1 to 15 do
  begin
    f := true;
    for j := 1 to 10 do
      if x[j] = y[i] then
      begin
        f := false;
        break;
      end;
    if f then
    begin
      k := k + 1;
      z[k] := y[i]; 
    end;
  end;
 
//распечатка массива Z 
  for i:=1 to k do
    write(z[i]:3);
end.