Найти первый отрицательный элемент массива с помощью цикла с постусловием
repeat
< тело >
until < условие >
Напишите плиз программу на паскале

Const n=10;
var a:array[1..n] of integer;
i: integer; 
begin
Randomize;
writeln(Массив A:);
for i:=1 to n do
 begin
 a[i]:=random(41)-20;
 write(a[i]:4);
 end;
writeln;
i:=0;
repeat
i:=i+1;
until (i>=n)or(a[i]<0);
if a[i]>=0 then writeln(Нет отрицательных элементов)
else writeln(Первый отрицательный элемент = a[,i,] = ,a[i]);
end.

Пример:
Массив A:
   8   7   0  18 -13  -9   6 -16 -13  -2
Первый отрицательный элемент = a[5] = -13

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.