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

Hellybery Hellybery    2   16.04.2019 23:00    9

Ответы
nastea030 nastea030  16.04.2019 23:00
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.
ПОКАЗАТЬ ОТВЕТЫ
iruha07082001 iruha07082001  16.04.2019 23:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы