помогите решить задачу,завтра экз...пжл** Тоже массивом. Найти максимальный четный элемент массива и его номер при условии, что все элементы различные.

 

 

 

составить программу

Program n1;Uses CRT;Const n=10;Var a: array[1..n] of integer; i,max,k: integer;beginClrScr;Randomize;For i:=1 to n do begin a[i]:=random(50); write(a[i]:3); end;For i:=1 to n do If a[i] mod 2=0 then If a[i]>max then begin max:=a[i]; k:=i; end;writeln;Writeln('Элемент ',max,' с номером ',k);readlnend.