Помогите пожалуйста с ИВТ: 1.Случайным образом генерируется N целых чисел в

include lt;iostreamgt;

using namespace std;

int main()

 int N;

 int i1=0,i2=0;

 cingt;gt;N;

 for(int i=0;ilt;N;i++)

  int a = rand()%11-5;

  if(alt;0)

   i1++;

  if(agt;0)

   i2++;

 coutlt;lt;"gt;0 - "lt;lt;i2lt;lt;endllt;lt;"lt;0 - "lt;lt;i1lt;lt;endllt;lt;"!=0 - "lt;lt;i1+i2lt;lt;endl;

 system("PAUSE");

P.S. Задачу можно решить не только через Turbo Pascal.

TurboPascal(может не очень правильно)

var

a,n, i1, i2, i: integer;

begin

 n := 42;

 for i:=1 to n do begin

  a:=random(11)-5;

  if a gt; 0 then

   i1 := i1 + 1;

  if a lt; 0 then

   i2 := i2 + 1;

 end;

 writeln("gt;  0-", i1);

 writeln("lt;  0-", i2);

 writeln("lt;gt;0-", i1+i2);

end.