Спрограммами 1)найти минимальный элемент массива 2)найти количество нечетных элементов массива 3)найти среднее арифметическое положительных элементов массива 4)заменить элементы массива которые больше 5 на их квадраты 5)заменить элементы массива которые меньше заданного числа на противоположные

Какой язык програмования?

1)
if min>a[i] then
min:=a[i];

2)
if a[i] mod 2 <> 0 then
kol:=kol+1;

3)
if a[i]>0 then
begin
sum:=sum+a[i];
kol:=kol+1;
end;
sum:=sum/kol
4)
if a[i]>5 then
a[i]:=sqr(a[i]);

5)
if a[i]<>4islo then
a[i]:=a[i]-(a[i]*2);