обозначим счетчики переменными kp(+) и km(-), так же возьмем переменную j:integer для осуществления цикла, так же необходим сам массив пусть будет a:array[1..20] of integer, содержит 20 элементов целого типа, приступим к набору программы.
var
j,km,kp:integer;
a:array[1..20] of integer;
begin
km:=0;kp:=0; {обнулим счетчики}
randomize; {запустим службу генерирования случайных чисел}
for j:=1 to 20 do
begin
a[j]:=random(100)-50; {заполним массив случайными числами}
writeln(' a[',j,']= ',a[j]); {напечатаем его}
end;
{далее перейдем к поиску элементов}
for j := 1 to 20 do
begin
if a[j]<0 then km:=km+1;
if a[j]>0 then kp:=kp+1;
end;
write('pologitel''nix: ',kp,'otricatel''nix: ',km);
readln;
end.
Вот собственно программа.
Начнем с инклюдов, у нас в наличии chrono по тому, что мы будем использовать тип данных для милисекунд, вместо обычной функции sleep. Это делаем по тому, что нам нужна точность синхронизации потоков, к томуже по факту механизм схож, но уже из стандарта C++0x, как и потоки. Если сильно хочется использовать тогда инклюдим так:
#ifdef _WIN32
#include <windows.h>
#else
#include <unistd.h>
#endif
Инклюд через иф дефайны для того, что реализацию функции sleep на разных платформах предоставляют разные хедеры.
Далее в инклюдах есть потоки, их используем по тому, что невозможно одновременно и ждать ввода пользователя и считать в цикле переменную a, по этому распаралеливаем. Один поток будет ждать ввода пользователя, другой же считать переменную a.
Так же, хорошо заметить, что весь вывод из основного потока программы (вывод через поток cout в функции main), осуществляется до старта вс потока и после его join-а, это сделано по тому, что при выводе на один экран терминала, может случится колизия, когда в середину одной строчки выведется другая (добро в асинхронный мир).
Если есть вопросы - пиши в коменты.
Буду благодарен за отметку решения как "лучшее" и нажатую кнопочку " " тут и в моем профиле.
Цел а,б
Вывод введите число
Ввод а
Если а < 100 или а > 999
То б:=а-(а/10)
Иначе вывод число не верно