Программа

CLS

INPUT "введи размер массива " ; n

DIM A(n)

PRINT "введи массив"

'Цикл по элементам массива

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i)

NEXT i

FOR i = 1 TO n

'Поиск первого отрицательного элемента

IF A(i) < 0 THEN K = i : EXIT FOR

NEXT i

IF К = 0 THEN

PRINT "отрицательных элементов нет "

ELSE

'Удаление первого отрицательного элемента

FOR i = K TO n-1

A(i) = A(i + 1)

NEXT i

n = n - 1

END IF

FOR i = 1 TO n

'Вывод элементов массива

PRINT A(i);

NEXT i

ЕND