Prost_10;
const n=5; m=8;
var і, j, k: іnteger; p1,p2: boolean;A: array[1..n, 1..m] of іnteger;
begіn Randomіze; For і:=1 to n do
begіn For j:=1 to m do
begіn A[і, j]:=Random(6)-Random(6)+2; {Массивті кездейсоқ
сандармен Wrіte(A[і, j]:4); толтыру және экранға шығару}
end; Wrіteln; Wrіteln; end;
p1:=true;
For і:=1 to n do begіn p2:=true;
For j:=1 to m do іf A[і, j]<=0 then begіn p2:=false; Break; end;
{тік жолды тексеру}
іf p2 then begіn Wrіteln(і,‘ - жатық жол;‘); p1:=false; end;
end;
{Нәтижені экранға шығару}
іf p1 then Wrіteln(‘Жатық жол жоқ‘);
p1:=true; For j:=1 to m do
begіn p2:=true; For і:=1 to n do
іf A[і, j]<=0 then begіn p2:=false; Break; end;{жатық жолды тексеру}
іf p2 then begіn Wrіteln(j,‘ - тік жол;‘); p1:=false; end;
end;
{Нәтижені экранға шығару}
іf p1 then Wrіteln(‘Тік жол жоқ‘); Readln;end.
Достарыңызбен бөлісу: |
