Задача на Паскаль

[XeruH]

True потому что у вас так написано

rez:=(a>0) or (a<0);

Ну уж дальше сами наверное сможете.

[Don Karleone]

Сообщение от WitaliG

Тут если ввожу положительное число, программа пишет True, но если ввожу -5, то по ее мнению все-равно True/
Вопрос: насколько корректно я написал код, и почему в случае с отрицательным числом True/

Читайте про логические функции: and, or, xor, not

Кстати, как вариант без использования if:

begin
  readln(a);
  writeln('Число А положительное: ',A >= 0);
  readln;
end.

[Kingdom_Reborn]

Базиля, число ноль не положительное... и не отрицательное...

[Базиля]

Kingdom_Reborn
без комментариев

[Don Karleone]

меня так увлекла дискусия по поводу 0, что я открыл книгу по математике и почитал ее. Так вот, она гласит следующее: число 0 не является ни положительным ни отрицательным.

[Мария1]

нужна помощь, с паскалем проблемы( очень на вас надеюсь!

задача: дан одномерный массив числовых значений, насчитывающий N элементов. определить имеются ли в массиве 2 подрят идущих нуля

[WitaliG]

Большое спасибо: процесс пошел.

[XeruH]

Сообщение от Мария1

нужна помощь, с паскалем проблемы( очень на вас надеюсь!

задача: дан одномерный массив числовых значений, насчитывающий N элементов. определить имеются ли в массиве 2 подрят идущих нуля

Во-первых. Одна тема - один вопрос! Правила все-таки читать надо.
Во-вторых какие проблемы с заданием?
1. вводим переменные типа boolean waszero и exists;
2. Проходим по массиву (for i+1 to 'длина массива')
3. смотрим если элемент массива равен нолю
3.1 если waszero, то exists присваиваем true и прерываем цикл
3.2 если waszero = false, то waszero :=true;
4. выводим

[Serge_Bliznykov]

ох, не хотел я Марии отвечать (ибо нечего лезть в чужую тему!)

но раз уж XeruH попытался помочь, прийдётся и мне свои пять копеек добавить...

var i : integer;
   WasZerous : boolean;
...
begin
   ... тут ввод массива ...

   WasZerous := false;
   for i:=1 to N-1 do 
      if (A[i]=0) and (A[i+1]=0) then begin
           WasZerous :=true;
           break;
      end;

  if WasZerous then WriteLn('Есть подряд идущие нули')
  else Writeln('Нет подряд идущих нулей');

  Readln;