Задача о последовательности чисел

[Gagarin614]

Задача о последовательности чисел

Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, равны ли все отрицательные.
чет туплю............. я,помогите)

 

[Vladimir_S]

Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, равны ли все отрицательные.
чет туплю............. я,помогите)

Например, так:

VAR
 A,C:REAL;
BEGIN
 C:=0;
 Repeat
  Write('Enter the next number ');
  ReadLn(A);
 Until (A<0) or (A=0);
 If A<0 then
  begin
   C:=A;
   Repeat
    Write('Enter the next number ');
    ReadLn(A);
   Until ((A<0) and (A<>C)) or (A=0);
  end;
 If (A<0) and (A<>C) then
  WriteLn('Negative numbers are NOT equal') else
 If (A=0) and (C=0) then
  WriteLn('There were no negative numbers') else
 WriteLn('All negative numbers are equal');
 ReadLn;
END.

И на будущее - пожалуйста, давая наименование темам, придерживайтесь Правил форума, в частности, п. 2.1.
Тема переименована.

Уже как модератор.

 

[Gagarin614]

Спасибо большое

 

[Gagarin614]

есть такой вопрос... не могли бы вы перепроверить вышесделанную программу у меня что то не коректно работает. При вводе переменных выдаются странные значения

 

[Vladimir_S]

есть такой вопрос... не могли бы вы перепроверить вышесделанную программу у меня что то не коректно работает. При вводе переменных выдаются странные значения

Я всегда тестирую программу, прежде чем выложить.
А можно подробнее? В чём проявляется некорректность? И какие такие значения "выдаются при вводе"? Ввод есть ввод, там вообще ничего выдаваться не должно.

 

[Gagarin614]

delete