Определить какое число ввел пользователь положительное или отрицательное?
( Условие: x>0)​

Пользователь ввел число (х), которое по условию (х>0) больше 0, значит число положительное.

program z1;

var x:integer;

begin

write('Введите число ');

readln (x);

if x>0 then writeln ('Вы ввели положительное число')

else write ('Вы ввели отрицательное число')

end.

Объяснение:

Программы не учитывает 0. При вводе 0 будет выдано сообщение об отрицательности числа.

Вариант с 0:

program z1;

var x:integer;

begin

write('Введите число ');

readln (x);

if x>0 then write ('Вы ввели положительное число');

if x = 0 then write ('Вы ввели 0');

if x < 0 then write ('Вы ввели отрицательное число')

end.