Помогите пожалуйста!!! Дан массив. Есть ли в нем отрицательный элемент? Заранее огромнейшее спасибо

Помогите пожалуйста!!! Дан массив. Есть ли в нем отрицательный элемент? Заранее огромнейшее спасибо
Гость
Ответ(ы) на вопрос:
Гость
const n=10; var a:array[1..n] of integer; i:integer; begin writeln('vvedite massiv='); for i := 1 to n do  readln(a[i]); for i :=  1 to n do  if a[i]<0 then writeln('esti') else writeln ('net'); readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы