program Project1;
uses
SysUtils;
type M = array of array of integer;
function F(A : M; b : integer) : integer;
var i, j : integer;
l : boolean;
begin
l:=false;
SetLength(A, b, b);
for j:=b-1 to 0 do
begin
if l then break;
for i:=b-1 to 0 do
begin
l:=true;
if A[i,j]=0 then
begin
l:=false;
break;
end;
end;
end;
F:=j+1;
end;
var B : M ;
n : integer;
i, j, k : integer;
begin
randomize;
write('Enter size of matrix, n=');
readln(n);
SetLength(B, n, n);
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
B[i,j]:=random(20)-10;
write(B[i,j]:4);
end;
writeln;
end;
k:=F(B, n);
writeln(k);
readln;
end.
Рис.7.3 Програма в процесі виконання
Практична робота №8
|
