Вывести на печать значение и номер первого отрицательного элемента массива - QBasic

Формулировка задачи:

помогите составить программу: Дан одномерный массив А(15). Вывести на печать значение и номер первого отрицательного элемента. Пожалуйста помогите!!!!!!!!!!!!

Код к задаче: «Вывести на печать значение и номер первого отрицательного элемента массива - QBasic»

textual
CLS 
INPUT"vvedite kol-vo elementov ",n
DIM a(n)
RANDOMIZE TIMER 
FOR i = 1 TO n
a(i) = INT(RND * 100) - 50 
NEXT
PRINT" massiv" 
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
IF A(i) > 0 THEN nom=i
NEXT 
PRINT"poslednij polojitelnyj element=";a(nom)
PRINT "ego nomer="; nom

14   голосов, оценка 3.643 из 5


СОХРАНИТЬ ССЫЛКУ