Pawo
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
blondenet
Вот решение без использования массивов:
Код: var
i,n,z,p,m,a:integer; {i - счетчик, n - N , z - нули, p - положительные, m - отрицательные, a - временная переменная}
begin
write('Введите N: ');
readln(n);
z:=0;p:=0;m:=0;
for i:=1 to n do
begin
write('Введите ',i,' число: ');
readln(a);
if a>0 then p:=p+1 else
if a<0 then m:=m+1 else
z:=z+1;
end;
writeln('Нулей: ',z);
writeln('Положительных: ',p);
writeln('Отрицательных: ',m);
readln;
end. |
Добавлено:
Вот с массивами (но оно менее рациональное):
Код: const
maxn=1000; {максимальное значение N}
var
i,n,z,p,m:integer; {i - счетчик, n - N, z - нули, p - положительные, m - отрицательные}
a:array[1..maxn]of integer; {массив чисел}
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' число: ');
readln(a[i]);
end;
z:=0;p:=0;m:=0;
for i:=1 to n do
if a[i]>0 then p:=p+1 else
if a[i]<0 then m:=m+1 else
z:=z+1;
writeln('Нулей: ',z);
writeln('Положительных: ',p);
writeln('Отрицательных: ',m);
readln;
end. |
|
