Задача по двумерному массиву.
Создать новый одномерный массив из элементов, стоящих под главной диагональю.
Вот шапочка массива:

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.