Массивы

[Olalya da Silva]

Вводится массив 3*3, определить сколько строк содержится в порядке возрастания.

[Sazary]

uses crt;
const m=3; n=3;
var
a : array[1..m,1..n] of integer;
i,j,k : integer;

begin
clrscr;
for i:=1 to m do
  for j:=1 to n do
   begin
   write('Enter a[',i,',',j,']: ');
   readln(a[i,j]);
   end;
writeln('----');
k := 0;
for i:=1 to m do
  begin
  for j:=2 to n do
    if a[i,j]<a[i,j-1] then
                       begin
                       dec(k);
                       break;
                       end;
  inc(k);
  end;
writeln('Otvet: ',k);
readln;
end.

[capta1n]

Мой вариант:

program capta1n;
const
 m = 3;
 n = 3;
type
 DataItem = array [1..m,1..n] of integer;
var
 A : DataItem;
 b : boolean;
 i,k,j : byte;
begin

  writeln ('Vvesti massiv: ');
  for i:=1 to m do
   for k:=1 to n do
   begin
     write ('A[',i,',',k,']= ');
     readln(A[i,k])
   end;

  j:=0;
  for i:=1 to m do
  begin
    b:=true;
    for k:=1 to n-1 do
     if A[i,k]>A[i,k+1] then 
     begin
       b:=false;
       break
     end;

    if b then inc(j)
  end;

  writeln ('j= ',j);

  readln

end.