В заданном массиве mas, с числом элементов 10, введенных пользователем с клавиатуры найти вывести на экран количество положительных чисел в массиве. В ответ прикрепите скриншот программы Dev C++

1)
Сеть Интернет, являющаяся сетью сетей и объединяющая громадное количество различных локальных, региональных и корпоративных сетей, функционирует и развивается благодаря использованию единого принципа маршрутизации и транспортировки данных.
Маршрутизация данных. Маршрутизация данных обеспечивает передачу информации между компьютерами сети. Рассмотрим принцип маршрутизации данных по аналогии с передачей информации с обычной почты. Для того чтобы письмо дошло по назначению, на конверте указывается адрес получателя (кому письмо) и адрес отправителя (от кого письмо).
Аналогично, передаваемая по сети информация «упаковывается в конверт», на котором «пишутся» Интернет-адреса компьютеров получателя и отправителя, например «Кому: 198.78.213.185», «От кого: 193.124.5.33». Содержимое конверта на компьютерном языке называется Интернет-пакетом и представляет собой набор байтов.
2)
Маршрутизация Интернет-пакетов обеспечивает доставку информации от компьютера-отправителя к компьютеру-получателю.
Маршруты доставки Интернет-пакетов могут быть совершенно разными, и поэтому Интернет-пакеты, отправленные первыми, могут достичь компьютера-получателя в последнюю очередь.
«География» Интернет Существенно отличается от привычной на географии. Скорость получения информации зависит не от удаленности сервера Интернет, а от маршрута прохождения информации, т.е. количество промежуточных серверов и качество линий связи (их пропускные по которым передается информация от сервера к серверу.
С маршрутом прохождения информации в Интернете можно познакомиться с специальных программ, которые позволяют проследить, через какие серверы и с какой задержкой передается информация с выбранного сервера Интернета на ваш компьютер.

Var   
c:array[1..100] of integer; 
s,j,n,i:integer;
begin   
readln(n);  
for i:=1 to n do       
read(c[i]); 
//Сортировка по возрастанию 
for j:=1 to n-1 do   
for i:=1 to n-j do     
if c[i]>c[i+1] then     
begin       
s:=c[i];       
c[i]:=c[i+1];       
c[i+1]:=s;     
end;
//Вывод  
for i:=1 to n do     
write(c[i],' ');
writeln;
//Сортировка по убыванию 
for j:=1 to n-1 do   
for i:=1 to n-j do     
if c[i]<c[i+1] then     
begin       
s:=c[i];       
c[i]:=c[i+1];       
c[i+1]:=s;     
end;
//Вывод  
for i:=1 to n do     
write(c[i],' ');  
end.