Одномерные массивы задача

[Тату]

задача.
В одномерном массиве целых чисел найти максимальный среди элементов, являющихся четными, и минимальный среди элементов, кратных А.
Пожалуйста решите.

[Pein95]

Program kj;
var
a:array [1..20] of integer;
i:integer;
k,l,aa:integer;
begin
writeln('a=');
readln(aa);
for i:=1 to 20 do
readln(a[i]);
l:=0;
for i:=1 to 20 do
if (a[i] mod 2=0) and (a[i]>k) then
k:=a[i];
l:=a[1];
for i:=1 to 20 do
if (a[i] mod aa=0) and (l>a[i]) then
l:=a[i];
writeln('max el=',k);
writeln('min el',l);
readln;
end.

вроде так компилятора нет под рукой не проверял

[Stilet]

Легко:

MODULE q;
IMPORT StdLog, ObxRandom;
VAR m:ARRAY(10) OF INTEGER;

PROCEDURE w*;
VAR a,i,max,min:INTEGER;
BEGIN max:=0;min:=0;
 a:=3; StdLog.Clear;
 FOR i:=0 TO LEN(m)-1 DO 
   m[i]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
   IF (m[i] MOD 2=0)&(m[i]>max) THEN max:=m[i]; END;
   IF (m[i] MOD a=0)&(m[i]<min) THEN min:=m[i]; END;
   StdLog.Int(m[i]);StdLog.Ln;
 END;
 StdLog.Ln;
 StdLog.String('Максимум = ');StdLog.Tab;StdLog.Int(max);StdLog.Ln;
 StdLog.String('Минимум = ');StdLog.Tab;StdLog.Int(min);StdLog.Ln;
END w;

END q.

q.w;

И даже изяшно

-48
-33
18
-50
-45
8
-10
-3
-45
16

Максимум = 18
Минимум = -48

[Тату]

Спасибо.. за ответы