15 здача

[amikulia]

дан массив А из К целых чисел. найти и вывести на экран все четные положительные элементы массива стоящие после максимального элемента массива. что здесь не так?

uses crt;
var a:array[1..100]of integer;
    i,k,max,n:integer;
begin
clrscr;
writeln('vvedite rasmernost massiva');
readln(n);
randomize;
max:=-100;
for i:=1 to n do
begin
     a[i]:=random(30)-10;
     write(a[i]:3);
     if max<a[i] then begin max:=a[i]; k:=i; end;
end;writeln;
for i:=k+1 to n do
begin
     if (a[i]>0 and a[i] mod 2=0) then write(a[i]:3);
end;
readln;
end.

[Mad_Cat]

if (a[i]>0) and (a[i] mod 2=0) then write(a[i]:3);