Question

Дан целочисленный одномерный массив, состоящий и n элементов. Подсчитать количество его положительных, отрицательных и нулевых элементов.

Answer 1

var a: array[1..10000] of integer;
x,y,z,i,n:integer;
begin
Write('Введите количество элементов массива: ');
readln(n);
Writeln('Введите элементы массива: ');
x:=0; z:=0; y:=0;
for i := 1 to n do
begin
readln(a[i]);
if (a[i])>0 then
x:=x+1 else
if (a[i])=0 then 
z:=z+1 else 
y:=y+1;
end;
Writeln('Положительных элкментов масива: ', x);
Writeln('Отрицательных элкментов масива: ', y);
Writeln('Нулевых элкментов масива: ', z);
end.