Вводится 5 чисел.подсчитать сколько из них целых, положительных, отрицательных и нулей

program chisla;

uses crt;

var p,o,z,c,i: integer;

        n: real;        

 

 

begin

    clrscr;

    write('введите числа: ');

    p: =0; z: =0; o: =0; c: =0;  

    for i: =1 to 5 do

            begin

                readln(n);

                if (n=0) then z: =z+1; // нуль не ни положительным ни отрицательным ни целым  

                if ((n mod 2)< > 0) and (n> 0) then p: =p+1;  

 

                if ((n mod 2)< > 0) and (n< 0) then o: =o+1;  

                if ((n mod 2)=0) and (n> 0) then

                          begin

                                p: =p+1;    

 

                                c: =c+1;    

 

                          end;

if ((n mod 2)=0) and (n< 0) then

                          begin

                                o: =o+1;    

                                c: =c+1;    

                        end;

      writeln;

      writeln('положительных чисел: ',p);

 

      writeln('отрицательных чисел: ',o);

        writeln('целых чисел: ',c);  

 

        writeln('нулей: ',z);    

    readkey;

 

end. 

 

 

1) рак рыбы),
2) сирень (цветы),
3) Егорова (имена),
4) птичка (растения),
5) овца (дикие животные),
6) лицо (части лица),
7) кошка (дикие животные),
8) качели (хоккей),
9) кролик (птицы),
10) потолок (однокоренные слова),
11) нагорный (однокоренные слова),
12) Байкал (горы),
13) Петербург (страны),
14) Индия (материки),
15) тетрадь (мебель),
16) маленький (степень старения),
17) сало (молочные продукты),
18) глагол (члены предложения),
19) пять (существительные),
20) четырёхугольник (оценки),
21) башмаки (множественное число),
22) дверцы (множественное число),
23) игры (множественное число);
24) мозоль (мужской род);
25) вестибюль (женский род);
26) панцирь (мужской род);
27) подорожник (приставка под-);
28) бумага (форма представления информации);
29) принтер (устройства ввода информации);
30) мышь (устройства вывода информации);
31) процессор (устройства хранения информации);
32) калькулятор (информационный процесс)

1)  Как вы считаете, влияет ли компьютер на здоровье человека?

2) Сколько времени вы проводите за компьютером в сутки(24 часа) ?

3)Какую работу чаще вы выполняете, пользуясь компьютером: печатаете, играете и т.д.

4) Через какой промежуток времени вы делаете между сеансами, работая за компьютером

5) Думаете ли вы, что длительные времяпровождение за компьютером негативно сказывается на зрении, позвоночнике, циркуляции крови во всём организме

6) Как вы полагаете, какое влияние оказывает электромагнитное излучение компьютера на здоровье человека

7) Что вы испытываете, работая долго за компьютером

8) Как вы предполагаете, каково влияние компьютерных игр на развитие личностных и моральных качеств

9) Считаете ли вы, длительное время провождение оказывает негативное влияние на психику человека

10) Ваши рекомендации по сохранению здоровья при длительной работе за компьютером

Объяснение: