Question

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

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;

Answer 1

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.