Дано: массив целых чисел A[N].Проверьте, есть ли в нем отрицательные элементы.Если есть,...

Question

Дано: массив целых чисел A[N].Проверьте, есть ли в нем отрицательные элементы.Если есть, найдите наибольшее i, при котором A[i]<0, иначе выведите сообщение. Напишите программу для Паскаль или лазарус

Answer 1

Program gt;
var a:array[1..1000]of integer;
i,n,l:integer;
begin
read(n);
l:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then l:=i;<br>end;
if(l=0)then writeln('НЕТ ОТРИЦА... В массиве')else writeln(l);
end.

Comments

понятно?

---

Спа

---

Спасибо большое , можешь в крации объяснить как ты это сделал

---

l-последный номер отрицательного числа и сначала оно равно 0 потом проверяем если оно неравно 0 то выводим l а если равно 0 -это значит что в массиве нет отрицательных чисел

---

у меня в любом случае пишет "нет отрицательных"

---

Программа не правильная

---

program gt;
var a:array[1..1000]of integer;
i,n,l,q:integer;
begin
read(n);
l:=0;
q:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then begin<br>q:=q+1;
if(q=1)then l:=i;
end;
end;
if(l=0)then writeln('НЕТ ОТРИЦА... В массиве')else writeln(l);
end. вот это правильная(извеняюсь поспешил