Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- N=20;
- var
- a: array [1..N] of integer;
- i, j, min: integer;
- begin
- min:=1000;
- for i:=1 to N do
- readln(a[i]);
- for i:=1 to N do
- begin
- if (a[i] mod 2=0) and (a[i] mod 3<>0) then
- if a[i] < min then
- min:=a[i];
- end;
- writeln(min);
- end.
Add Comment
Please, Sign In to add comment