massivi

[volkonskaya]

задать целочисленный массив из отрезка (-5,5).подсчитать число ненулевых элементов

[denisbrain]

Сообщение от volkonskaya

задать целочисленный массив из отрезка (-5,5).подсчитать число ненулевых элементов

{задать целочисленный массив из отрезка (-5,5).подсчитать число ненулевых элементов}
uses crt;
const ncount=15;
var
a:array [1..ncount] of integer;
   x:integer;
   sumI:integer;
begin
ClrScr;
sumI:=0;
 for x:=1 to ncount do begin
   a[x]:=-5+random(11);
   Write(a[x]:3,' ');
   if a[x]<>0 then sumI:=sumI+1;
 end;
 Writeln('');
 Writeln('Число ненулевых элементов ',sumI);
end.

[SlavaSSU]

ты же посчитал число неотрицательных элементов
volkonskaya, вместо строчки a[x]>=0 напиши a[x]<>0. denisbrain поторопился