По двумерному массиву. создать новый одномерный массив из элементов, стоящих под главной диагональю. вот шапочка массива: 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.