Для разделения целой и дробной частей десятичной дроби использовать запятую.
Вводить отрицательные числа со знаком минус или взять число в скобки.
Для обозначения процентов после числа вводить символ "%".
Обычную дробь нужно вводить, указывая и отделяя её от дробной пробелом.
Обозначение единиц измерения после чисел не вводится, только если это не денежные единицы.
перевод:
Для поділу цілої та дробової частин десяткового дробу використовувати кому.
Вводити негативні числа зі знаком мінус або взяти число в дужки.
Для позначення відсотків після числа вводити символ "%".
Звичайну дріб потрібно вводити, вказуючи і відокремлюючи її від дробу прогалиною.
Позначення одиниць виміру після чисел не вводиться, тільки якщо це не грошові одиниці.
#include <iostream>
using namespace std;
int main()
{
int N;
int i1=0,i2=0;
cin>>N;
for(int i=0;i<N;i++)
{
int a = rand()%11-5;
if(a<0)
i1++;
if(a>0)
i2++;
}
cout<<">0 - "<<i2<<endl<<"<0 - "<<i1<<endl<<"!=0 - "<<i1+i2<<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 > 0 then
i1 := i1 + 1;
if a < 0 then
i2 := i2 + 1;
end;
writeln("> 0-", i1);
writeln("< 0-", i2);
writeln("<>0-", i1+i2);
end.
const
n=10;
var
a:array[1..n]of integer;
i:integer;
s,p:real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
p:=p*a[i] ;
s:=s+a[i];
end;
writeln;
writeln('P = ',p, ' S= ',s);
end.