lalka

Всем привет. Нужен код программы для этой задачи

Задача:
Задать массив из 10 случайных чисел в интервале от -10 до 10. Вывести индекс первого элемента с отрицательным значением.

poiu

медвежья услуга, но все же...

program piupiu;
uses
crt;

type
Tmas = array [1..10] of integer;

var
mas: Tmas;
i: byte;

begin
clrscr;
randomize;
writeln('Massiv:');
for i:= 1 to 10 do
begin
mas[i]:= -10 + random(20);
write(mas[i]:4);
end;
writeln;
for i:= 1 to 10 do
if mas[i] < 0 then
begin
writeln('Position first minus: ',i);
break;
end;
readln;
end.