Question

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

Answer 1

Program Masiv1;
Uses crt;
Var t: array [1 ..10] of real; i,pol,otr,nol: integer;
Begin
   Writeln ('введите 10 элементов массива');
   For I:=1 To 10  Do  Read ( t[i] );
   pol:=0; otr:=0;nol:=0;
   for i:= 1 to 10 do
     if t[i]>0 then pol:=pol+1 else
        if t[i]<0 then otr:=otr+1 else nol:=nol+1;
   Writeln ('число положительных элементов ',pol);
   Writeln ('число отрицательных  элементов ‘,otr);
   Writeln ('число нулевых элементов ',nol);
   Readkey
end.

Answer 2

var a:array [1..100] of integer;
otr, pol, zero : integer;
i : integer;
begin
//как-то заполняем масив
for i:= 1 to 100 do
begin
 if (a[i] < 0) then inc(otr) else
 if (a[i] = 0) then inc(zero) else
 if (a[i] > 0) then inc(pol);
end;
 
writeln('Отрицательных = ', otr, ' положительных = ',pol, ' равных нулю = ',zero);
end.