Не знаю как исключить из рассмотрения елементы двумерного массива(матрицы)

@MessiYA · Регистрация: 07.01.2012

Author24 — интернет-сервис помощи студентам

Дано массив А(М;М).Найти количество елем. расположенных на каждой параллеле до главной диагонали(Я ДУМАЮ ЭТО ЗНАЧИТ, ЧТО НУЖНО РАССМАТРИВАТЬ ЭЛЕМ. ПОД ГЛАВНОЙ ДИАГОНАЛЬЮ) и на самой диагонали.Объединить их в массив.Елементы А(1;1) и А(М;М) исключить из рассмотрения.
Не могу понять как исключить из рассмотрения елементы.

Pascal

uses Crt;
var A:array[1..300,1..300] of integer;
    B:array[1..30000]of integer;
    i,j,m,n,k:integer;
begin
randomize;
write('Введите порядок матрицы n=');
readln(n);
for i:=1 to n do  begin
for j:=1 to n do       begin
A[i,j]:=random(30);
write(A[i,j]:3);
                  end;
writeln;
                       end;k:=0;m:=0;writeln;
for i:=1 to n do begin
for j:=1 to i do
begin
inc(k);
inc(m);
B[m]:=A[i,j];
write(B[m]:3);
end;
end;writeln;
writeln;
                       //for m:=2 to m-1 do
                         write(B[m]:3);//
writeln('К-ство элем. под главной диагональю k=',k);
end.

Исключить эти элементы в одномерном массиве я могу FOR m:=2 to m-1 do,
А можно ли сделать это в самой матрице.

@BumerangSP · 08.01.2012, 10:42

Например, так :

Pascal

for i:=2 to n do
 begin
  for j:=1 to i do
   if j=n then break
   else
    begin
     inc(k);
     inc(m);
     B[m]:=A[i,j];
     write(B[m]:3);
   end
 end;

@MessiYA · 08.01.2012, 17:49 **[ТС]**

Спасибо все работает.А то я над с этим исключением бился целую неделю.

@MessiYA 0 / 0 / 0 Регистрация: 07.01.2012 Сообщений: 3
	08.01.2012, 17:49 [ТС]	3
	Спасибо все работает.А то я над с этим исключением бился целую неделю. 0