Двумерные массивы в Паскале

[hohol]

Помогите пжл...

Дан массив A[7,7]. построить массив B(7) по следующему правилу: B(I) присвоить 1, если в I-ой строке массива представляют возрастающую последовательность, в противном случае B(I) присвоить 0.

Буду очень благодарен.

[rina alex]

hohol, А как задаётся массив?
Я сделала рендомом, но тогда не получаются возрастающие последовательности и в массиве B только 0.

http://pastebin.ubuntu.com/338071/

[dr.Jekill]

[syntax="pascal"]
uses crt;
const n=3;
var A:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j:byte;
begin
clrscr;
writeln('Zadaite elemnty matricy');
for i:=1 to n do
begin
writeln('Stroka #',i);
for j:=1 to n do
begin
write('Element #',j,': ');
readln(A[i,j]);
end;
clrscr;
end;

writeln('Poluchennaia matrica:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j],' ');
writeln;
end;
writeln;

i:=0;
repeat
inc(i);
j:=0;
repeat
inc(j);
until (A[i,j]>=A[i,j+1]) or (j=n-1);
if j<n-1 then b:=0
else b:=1;
until i=n;

for i:=1 to n do writeln('b[',i,']=',b);
write('Press any key to EXIT...');
readkey;
end.
[/syntax]
rina alex, пожалуйста, выкладывайте свой код на форуме. Для публикации кода используйте тэги. syntax="delphi" Ваш код /syntax, syntax="pascal" Ваш код /pascal, code Ваш код /code.

[rina alex]

dr.Jekill, *thumbs up*, я учту)

[hohol]

большое спасибо