Одномерные массивы

[oksik_777]

Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an получить сумму положительных, число отрицательных, число нулевых элементов.
как это?! помогите, пожалуйста!

[ROMA2PVT]

sum:=0;
kolnul:=0;
kolotr:=0;
for i:=1 to n do
begin
if a[i]>0 then
sum:=sum+a[i];
if a[i]=0 then
inc(kolnul);
if a[i]<0 then
inc(kolotr);
end;
writeln;
writeln('Сумма положительных эл.:=',sum,'; Количество: 1)отрицательных:=',kolotr,'; 2) нулевых:=',kolnul);

[p51x]

как это?!

Это ОЧЕНЬ сложно, аж до идиотизма.

если элемент больше нуля, то сумма равна старое значение плюс элемент
если элемент равен нулю, то увеличит счетчик нулей
если элемент меньше нуля, то увеличить счетчик отрицательных
и так в цикле...

[oksik_777]

спасибо, ROMA2PVT)
да, не программист я, что теперь?!

[ROMA2PVT]

Uses
   CRT;
Var
a:array [1..20] of integer;
sum,n,i,kolnul,kolotr:integer;
begin
Clrscr;
sum:=0;
kolnul:=0;
kolotr:=0;
random;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-2;
write(a[i]:2,' ');
if a[i]>0 then
sum:=sum+a[i];
if a[i]=0 then
inc(kolnul);
if a[i]<0 then
inc(kolotr);
end;
writeln;
writeln('Сумма положительных эл.:=',sum,'; Количество: 1)отрицательных:=',kolotr,'; 2) нулевых:=',kolnul);
readkey;
end.