программа отвечающая правда ли что среди чисел имеются отрицательные числа

[D1zz1]

Задание состоит в том что надо написать такую программу, чтоб отвечала на вопрос: правда ли что среди чисел имеются отрицательные числа

[ZvEr_HaCkEr]

Изучите основы языка и больше не задавайте таких простых вопросов.
P.S вот решение на Delphi, думаю на паскаль сам перепишешь.

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..20] of integer;
i,m:integer;
begin
Randomize;
m:=0;
Memo1.Clear;
for i := 1 to 20 do begin
a[i]:=Random(50)-20;
end;
for i := 1 to 20 do
if a[i]<0 then begin
m:=m+1;
Memo1.Lines.Add('Отрицательный элемент'+IntToStr(a[i]))  ;
end;
ShowMessage('Правда, в массиве '+IntToStr(m)+' отрицательных элементов');
end;

[Sparkman]

const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if a[i]<0 then
begin
writeln('правда');
break;
end;
end.

[D1zz1]

Hacker, спасибо вам за рациональный ответ, но к сожалению не хватает времени, и массивы к сожалению я пропустил
Sparkman, огромное вам спасибо=)