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

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

Задать свой вопрос
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]lt;0)then l:=i;
end;
if(l=0)then writeln('НЕТ ОТРИЦА... В массиве')else writeln(l);
end.
Руслан
Спа
Вадим
Спасибо большое , можешь в крации разъяснить как ты это сделал
Амина Почкаева
у меня в любом случае пишет "нет отрицательных"
Юлия Скокленко
Программа не правильная
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт