Отыскать 1-ый отрицательный элемент массива с поддержкою цикла с постусловием repeat

Найти 1-ый отрицательный элемент массива с помощью цикла с постусловием
repeat
lt; тело gt;
until lt; условие gt;
Напишите плиз программку на паскале

Задать свой вопрос
1 ответ
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 (igt;=n)or(a[i]lt;0);
if a[i]gt;=0 then writeln('Нет отрицательных частей')
else writeln('Первый отрицательный элемент = a[',i,'] = ',a[i]);
end.

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


Последние вопросы

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

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

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

Войти на сайт