Advertisement
Miogarun

Untitled

Jan 16th, 2017
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.27 KB | None | 0 0
  1. for i:=1 to 6 do
  2. begin
  3.     for j:=1 to 8 do
  4.     begin
  5.         if (a[i,j] mod 2 == 0) then
  6.         begin
  7.             min:=a[i,j];
  8.         end;
  9.     end;
  10. end;
  11. for i:=1 to 6 do
  12. begin
  13.     for j:=1 to 8 do
  14.     begin
  15.         if (a[i,j] mod 2 == 0) and (a[i,j] < min) then
  16.         begin
  17.             min:=a[i,j];
  18.         end;
  19.     end;
  20. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement