Задача по двумерному массиву. Создать новый одномерный массив из элементов, стоящих под главной диагональю. Вот шапочка массива: uses crt; type mas = array [1.. 8, 1.. 8] of integer; var M:mas; i,j:integer; begin randomize; for i:=1 to 8 do begin for j:=1 to 8 do begin M[i,j]:=random(190)-95; write(M[i,j]:4); end; writeln; end;

uses crt;type mas = array [1.. 8, 1.. 8] of integer;var M:mas;i,j,k:integer;a:array[1..28]of integer;    begin        randomize;             for i:=1 to 8 do               begin                 for j:=1 to 8 do                     begin                        M[i,j]:=random(190)-95;                         write(M[i,j]:4);                     end;                   writeln;               end;for i:=1 to 8 do        for j:=1 to 8 do                  if i>j then                          begin                                   k:=k+1;                                   a[k]:=m[i,j];                          end;    writeln;           for i:=1 to 28 do                  write(a[i]:4);    end.