Advertisement
Guest User

Untitled

a guest
Sep 25th, 2016
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. uses crt;
  2. const m=4; n=4;
  3. var x: array[1..m,1..n] of integer;
  4. i,j,a,b: integer;
  5. begin
  6. randomize;
  7. for i:=1 to m do
  8. for j:=1 to n do
  9. x[i,j]:=Random(100);
  10.  
  11. for i:=1 to m do begin
  12. if i mod 2 = 0 then
  13. for j:=1 to n do
  14. if x[i,j] > a then
  15. a:=x[i,j];
  16. end;
  17. writeln(a);
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement