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.