Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- for i:=1 to 6 do
- begin
- for j:=1 to 8 do
- begin
- if (a[i,j] mod 2 == 0) then
- begin
- min:=a[i,j];
- end;
- end;
- end;
- for i:=1 to 6 do
- begin
- for j:=1 to 8 do
- begin
- if (a[i,j] mod 2 == 0) and (a[i,j] < min) then
- begin
- min:=a[i,j];
- end;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement