ПОМОГИТЕ ПОЖАЛУЙСТА!!!1)Дан массив М : 15, 17, 24, 18, 13, 28,

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
1)Дан массив М : 15, 17, 24, 18, 13, 28, 18, 95, 19, 17
Что появиться на экране после выполнения фрагмента программки:
z:=0;
for k:=1 to 10 do if m[k] mod 2 lt;gt;0 then z:=z+1;
writeln(z);
2)Дан массив М : 24, 7, 14, 8, 56, 12, 48, 25, 19, 17
Что появиться на экране после выполнения куска программки:
s:=m[1];
for k:=2 to 10 do if m[k]gt;s then s:=m[k];
writeln(s);