Срочно!Помогите с программами
1)найти минимальный элемент массива
2)найти количество нечетных элементов массива
3)найти среднее арифметическое положительных элементов массива
4)заменить элементы массива которые больше 5 на их квадраты
5)заменить элементы массива которые меньше заданного числа на противоположные
Answers & Comments
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);