СРОЧНО РЕШИТЕ ЗАДАЧУ ПО PASCAL Дана последовательность целых чисел. Выяснить какое число...

Question

СРОЧНО РЕШИТЕ ЗАДАЧУ ПО PASCAL
Дана последовательность целых чисел. Выяснить какое число встречается раньше положительное или отрицательное.

Comments

Непонятно как это "раньше"? Возьми первое из последовательности и смотри положительное оно или отрицательное. Первое в любом случае будет "раньше" остальных.

---

Т.е само оригинальное задание Дана последовательность целых чисел а1, а2,..., аn. Выяснить, какое число встречается раньше — положительное или отрицательное.

---

Фигня какая-то. a1 раньше других встретится. Значит какое оно, такой и ответ. Или там и 0 может быть?

---

а может быть такое решение

---

Program num3;Uses crt;VAra :array [1..100] of real;i,n : integer;Beginclrscr;write('n=');readln(n);for i:=1 to n doreadln(a[i]);for i:=1 to n dobeginif a[i]<>0 thenif a[i]>0 thenbeginwriteln('Положительное встречается раньше');breakend elsebeginwriteln('Отрицательное встречается раньше');breakend;end;End.

---

Можно и так, только надо после первого then поставить begin и после последнего break поставить end;

Answer 1

Если нуль возможен, то примерно так.
function whatsign(a: array of integer):boolean;
var find:boolean;
     i:integer;
begin
   i:=min(a);
   find:=false;
   result:=false;
   while (not find) and (i<=max(a)) do<br>     begin
        find:=a[i]<>0;
        if find then result:=a[i]>0;
        i:=i+1;
     end;
end; 
Функция вернёт True, если раньше положительное и False, если раньше отрицательное.
Примерно так. Проверь синтаксис объявления переменных и функции.