Дана матрица G(n,m). Переписать элементы её главной диагонали в одномерный массив H. Вывести оба массива (n=9, m=6).
Проверьте пожалуйста если я правильно написала код программы....
[I]program matrice;
uses crt;
type tab=array [1..9, 1..6] of integer;
var G:array [1..9, 1..6] of tab;
B: tab;
i,j,n,m: integer;
begin
clrscr;
write ('introduce n,m');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
read (G[i,j]);
write ('главная диагональ');
for i:=1 to no do
begin
B[i]:=G[i,i];
write (B
:4);
end;
readln;
end.
Благодарю за помощь.