25 lines
432 B
Plaintext
25 lines
432 B
Plaintext
class MAIN is
|
|
main is
|
|
a:ARRAY2{INT} := #(10,10);
|
|
i, j :INT;
|
|
|
|
RND::seed(1230);
|
|
loop i := 0.upto!(9);
|
|
loop j := 0.upto!(9);
|
|
a[i, j] := RND::int(1, 20);
|
|
end;
|
|
end;
|
|
|
|
loopthis ::= true;
|
|
loop i := 0.upto!(9); while!( loopthis );
|
|
loop j := 0.upto!(9);
|
|
#OUT + " " + a[i, j];
|
|
if a[i, j] = 20 then
|
|
loopthis := false;
|
|
break!;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|