Двумерные массивы(матрицы)

[Alekzinder]

Помогите с матрицами
1)Сформировать квадратную матрицу порядка n по заданному образцу:
1∙2 0 0 … 0 0 0
0 2∙3 0 … 0 0 0
0 0 3∙4 … 0 0 0
…………………………….
0 0 0 … 0 (n-1)∙n 0
0 0 0 … 0 0 n∙(n+1)

2)Уплотнить заданную матрицу, удаляя из неё строки и столбцы, заполненные нулями. Найти номер первой из строк, содержащих хотя бы один положительный элемент.

[interacia]

program Matrix1;
var
j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
writeln('Введите число M (M<=10)');
readln(M);
// Решение
 for i:=1 to M do begin
 for j:=1 to M do a[i,j]:=0;
 a[i,i]:=i*(i+1);
 end;
// Ответ
writeln;
writeln('Ответ');
 for i:=1 to M do begin
 writeln;
 for j:=1 to M do write(a[i,j]:3);
 end;
end.

[interacia]

2)

program Matrix1;
var
j,i,ii,jj,M,N,Num:integer;
bol:boolean;
a: array [1..11,1..11] of integer;
begin
// Ввод данных
writeln('Введите числа строк M (M<=10)и столбцов N (N<=10)');
read(M);readln(N);
 for i:=1 to M do begin
 write('Введите строку ',i,'):');
 for j:=1 to N do read(a[i,j]);
end;
// Решение
i:=1;
while  i<= M do
   begin
   bol:=true;
   for j:=1 to N do
    if a[i,j]<>0 then bol:=false;
   if bol then
    begin
     if i<M then begin
     for ii:=i to M do
     for jj:=1 to N do
                    a[ii,jj]:=a[ii+1,jj];
     end;dec(i); dec(M);
    end;
inc(i);
end;
j:=1;
while j<= N do
   begin
   bol:=true;
   for i:=1 to M do
     if a[i,j]<>0 then bol:=false;
   if bol then
    begin
     if j<N then begin
     for ii:=1 to M do
     for jj:=j to N do
                    a[ii,jj]:=a[ii,jj+1];
     end; dec(j); dec(N);
    end;
inc(j);
end;
// Ответ
writeln;
writeln('Ответ');
 for i:=1 to M do begin
 writeln;
 for j:=1 to N do write(a[i,j]:3);
 end;
Num:=0;
Writeln;
 for i:=1 to M do begin
 for j:=1 to N do
   if a[i,j]>0 then begin Num:=i; break; end;
   if Num>0 then break;
   end;
if Num>0 then Writeln('Номер строки с положительным элементом ',Num)
else Writeln('нет строки с положительным элементом');
end.

[Alekzinder]

Спасибо выручили))

[Sciv]

interacia, не забудь за него и диплом получить.

[interacia]

interacia, не забудь за него и диплом получить.

Хорошо бы. А то у меня ни одного нет.