Дан двумерный массив х из вещественных элементов размерностью n 1. в одномерный массив переписать отрицательные элементы двумерного массива,расположенные ниже главной диагонали 2. перенести в начало одномерного массива первый элемент,значение которого больше разности максимального и минимального элементов. для отладки программы элементы массива сформировать с генератора случайных чисел

{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии   в операторах uses, clrscr, readkey } const   n = 9; var   x: array[1..n, 1..n] of real;   y: array[1..n*(n-1) div 2] of real;   i, j, k: integer;   max, min, d: real; begin   randomize;   {clrscr; }   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to n do       begin           x[i, j] : = 100*random - 50;           write(x[i, j]: 4: 0)       end;       writeln   end;   { 1 }   k: =0;   for i: =2 to n do       for j: =1 to i-1 do           if x[i,j]< 0 then begin inc(k); y[k]: =x[i,j] end;   writeln('сформированный одномерный массив');   for i: =1 to k do write(y[i]: 4: 0);   writeln;   { 2 }   max: =y[1]; min: =max;   for i: =2 to k do       if y[i]> max then max: =y[i]       else           if y[i]< min then min: =y[i];   d: =max-min;   i: =1;   while (abs(y[i])< =d) and (i< =k) do inc(i);   if i< =k then       begin d: =y[1]; y[1]: =y[i]; y[i]: =d end;   writeln('результирующий одномерный массив');   for i: =1 to k do write(y[i]: 4: 0);   writeln;   {readkey} end. тестовое решение: исходный массив   37 -45 -17 -26  -6 -22  -1 -33  -3   -27  33 -15 -14  33  37  28 -12 -36     1  14  48  -2 -43  -1  17  34  -7   -11  45  -5 -16  32  -8  32  -1 -40   18  43 -13 -28  30  45  44 -38 -28   38    0  10  48  28 -43 -12 -29 -44     2 -11  48  33    7  10  35 -40 -28   -48  39 -49  42    5 -16  26 -40  -5   27 -21  34 -46    4  45 -22  29 -16 сформированный одномерный массив   -27 -11  -5 -13 -28    0 -11 -48 -49 -16 -21 -46 -22 результирующий одномерный массив   -49 -11  -5 -13 -28    0 -11 -48 -27 -16 -21 -46 -22

Забота подходит для этого высказывания