Вмассиве подсчитать: количество положительных и количество чётных чисел вместе. (элементов массива: 24. массив вводится случайным образом в интервале [-6; 13])

На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.