Counts that how many propertied elements are in the array

example:negative numbers

By FlamingClaw

```
{
Question
Counts that how many propertied elements are in the array
example:negative numbers
The rule:
s:=0;
Loop i:=1..N
If T[i]<0 Then s:=s+1;
End of Loop;
Out: s;
}
Program Solution01;
Const n = 5;
m = -10;
Var s,i:Integer;
T:Array[m..n]Of Integer;
Begin {main}
WriteLn('First run:');
{create random numbers and fill the array with them}
Randomize;{it is important!}
For i:=m To n Do Begin
T[i]:=Random(m)+n; {-10..5}
Write(T[i]:3);
End;
WriteLn;
{analizing}
s:=0;
For i:=m To n Do Begin
If (T[i] < 0) Then s:=s+1;
End;
{write the number of negative numbers}
Write('The number of negative numbers: ',s);
ReadLn;
End.
{
-= Note By FlamingClaw =-
All programs created by me are written and tested
in Dev Pascal and/or Turbo Pascal 7.0
Of course working!
-= Created By FlamingClaw =-
-=2009.04.05=-
}
```

About the Author

Just living in hungary.Teaching myself in pascal.

I have time to programming when I'm going to home,cause my job is not a good place for that.

Don't forget that if you ask something on the forum and you got the right answer then

[b] mark as solved !![/b]