Придумать 5 вопросов про пальцы рук

Question

Информатика: Придумать 5 вопросов про пальцы рук

ks441934 · Accepted Answer

Const m=4; n=15; var   i,j,j0: integer;   a:array[1..m,1..n] of integer;   jExit,iExit:Boolean; begin   Randomize;   for i:=1 to m do begin     writeln;     for j:=1 to n do begin       a[i,j]:=random(2);       write(a[i,j]:2)       end     end;   writeln;   j:=0; jExit:=false;   repeat     j:=j+1; i:=1; iExit:=false;     if a[i,j]=0 then begin       repeat         i:=i+1;         if a[i,j] 0 then iExit:=true       until iExit or (i=m);       if i=m then jExit:=true       end     until jExit or...

MOGZ ответил