Пример кода на Delphi:

program FindElements;
var
arr: array$$\mathrm{1..10}$$ of Integer; // объявляем массив из 10 элементов
i, countEven, countNonNegative: Integer;
begin
// заполняем массив произвольными значениями
arr$$1$$ := 5;
arr$$2$$ := -2;
arr$$3$$ := 8;
arr$$4$$ := -4;
arr$$5$$ := 0;
arr$$6$$ := 3;
arr$$7$$ := 10;
arr$$8$$ := -7;
arr$$9$$ := 6;
arr$$10$$ := -1;
countEven := 0;
countNonNegative := 0;
for i := 1 to 10 do
begin
// проверяем на четность
if arr$$i$$ mod 2 = 0 then
Inc$countEven$;
// проверяем на неотрицательность
if arr$$i$$ >= 0 then
Inc$countNonNegative$;
end;
Writeln${}^{\prime }Количествочетныхэлементов{:}^{\prime },countEven$;
Writeln${}^{\prime }Количествонеотрицательныхэлементов{:}^{\prime },countNonNegative$;
Readln;
end.

Этот код на Delphi сначала объявляет массив arr из 10 элементов и заполняет его произвольными значениями. Затем с помощью цикла for проходит по всем элементам массива и проверяет их на четность и неотрицательность. После этого выводит количество четных элементов и количество неотрицательных элементов.