Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.