Паскаль. Массив.

[davletshin1994]

дан случайный массив(random(100) - 50). определить, имеется ли в массиве отрицательные числа, если имеется вывести первое отрицательное число, иначе вывести соответствующее сообщение.
программа должна работать так чтобы при обнаружение первого отрицательного числа следующие числа не проверяла(если он не последний), а сразу выводит первое отрицательное число.

[CrazyDave]

Сделаю щас, аська 411-886-702

[Promotrs]

Сделаю бесплатно.
Моя почта: nesterenko.v.i@mail.ru

[temaps]

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

Сделаю бесплатно.
Моя почта: nesterenko.v.i@mail.ru

Демпер детектед!

[Promotrs]

Program Massiv(input, output);
Uses
Crt;
Const
m=100;{Количество элементов в массиве}
Var
a:array[1..m] of Integer;
i:Integer;
Begin
ClrScr;
Randomize;
for i:=1 to m do begin
a[i]:=random(100)-50;
if a[i]<0 then begin
Writeln('Отрицательный элемент= ',a[i]);
Readkey;
Exit;
end;
end;
WriteLn('Отрицательных элементов нет!');
ReadKey;
End.

[Promotrs]

Добавьте отзыв, если считаете, что заслужил ;-)