Паскаль. Первый отрицательный элемент.

[DaRus]

Паскаль.
Задание: Ввести первый отрицательный элемент,если такой элемент есть.

Попытки решения:

Function Controll (m: myarray): Boolean;
Var i : Integer;
Begin
i := 1;
While (i<=n) And (m |i|>0) Do Inc(i);
Control1:=(i<=n)
End;

Что неправильно? Заранее спс

[DaRus]

Кажется не правильно у мну всё.
P.S. одномерный массив.

[DaRus]

Всем спасибо за помощь.

[Анатоль]

у тебя функция boolean возвращает.
надо integer.
Сделай присваивание в функции после цикла Controll := i;
А в теле головной прогрыммы проверь чтобы этот элемент был отрицательным. Просто может не оказаться в массиве отрицательных элементов. и удали бесполезную Control1 := (i<=n).

[DaRus]

Чёт не догоняю %) Как это будет выглядить?

[Seil_29]

program smt;
var a:array[1..100] of integer;
k,i,n:integer;
begin
read(n); //кол-во элементов массива
k:=0; //флаг
for i:=1 to n do
begin
read(a[i]);
if (k=0) and (a[i]<0) then //если флаг еще опущен и элемент отрицателен,пишем его и поднимаем флаг)
begin
write(a[i]);
k:=1;
end;
end;
end.

[IT-man]

for i:=1 to n do
if a[i]<0 then begin writeln(a[i]);break;end;

[Seil_29]

IT-man,

Ну собственно да хд)
Как-то я шумно опростался =D