Дан массив из N действительных чисел. Посчитать сколько в нем отрицательных, положительных и нулевых элементов
Вопрос посетителя
Дан массив из N действительных чисел. Посчитать сколько в нем отрицательных, положительных и нулевых элементов
Ответ эксперта
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.
