Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном...

Question

Составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом ряду
Помогите решить в Паскале

Answer 1

Program n_1; 
uses crt;
var a: array [1..5] of integer; 
otr,pol,i: byte;
begin 
for i:=1 to 5 do  begin 
a[i]:=random(10)-5; 
write(a[i]:3);   
 if a[i]>0 then pol:=pol+1 else     
if a[i]<0 then otr:=otr+1;  <br>end; 
writeln; 
writeln('Положительных: ',pol,'; Отрицательных: ',otr);

end.

Comments

можешь изменить кол-во массива в for, и в var. как тебе удобнее

---

так же можешь поменять заполнение массива рандомными числами

---

a[i]:=random(10)-5 тут можешь цифры поменять

---

если у тебя турбо паскаль, после первого begin поставь: pol:=0; otr:=0;

---

Спасибо большое