Ну и все правильно. второй код считает в переменной p кол-во элементов, значение которых меньше 0.
Хотя я бы написал так:
Код:
function NegativeItemsCount(A : Array Of Integer) : Integer;
var
I : Integet;
begin
Result := 0;
For I := Low(A) To High(A) Do
If A[i] < 0 Then Inc(Result);
end;
Собственно, все тоже самое, только в эту функцию можно засовывать любые одномерные целочисленные значения, а на выходе просто получаешь число. что дальше ты с этим числом сделаешь - твое дело
