var
a: array[1..10] of real;
b,c,d,f: integer;
begin
f:=1;
writeln('Введите 10 чисел');
for d:=1 to 10 do
begin
readln(a[f]);
if a[f]>0 then
c:=c+1;
if a[f]<0 then
b:=b+1;
f:=f+1;
end;
writeln('Положительных чисел ',' ',c);
writeln('Отрицательных чисел ',' ',b);
end.
Нет, это может быть любум числом, (например 11-1+1=2-меньше 10)
Интернет -это инфррмационная система электронных документов
В 1 байте 0,001 Кбайта
10240*0,001= 10,24
или же
10240:1000=10,25
172=122
2EA=746
101010=42
10.1=2.5
243=99