Задача по двумерному массиву.

Создать новый одномерный массив из элементов, стоящих под главной диагональю.

Вот шапочка массива:

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.