На головну

програма

  1.  I. ПРОГРАМА КУРСУ
  2.  I. РОБОЧА ПРОГРАМА
  3.  II. ПРОГРАМА КУРСУ
  4.  III. Програма соціологічного дослідження.
  5.  Turbo Debugger відображає вікно процесора, в якому можна побачити, як виконується програма.
  6.  V1: Виробнича програма та виробнича потужність підприємства
  7.  У програмах виховання і навчання дошкільнят

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

приклад 12

Дан масив чисел. Видалити всі максимальні значення.




 попередні відомості |  Індекс елемента масиву |  оголошення масиву |  Введення і виведення елементів масиву |  виконання алгоритму |  Завдання для додаткового рішення |  Завдання для додаткового рішення |  виконання алгоритму |  Завдання для додаткового рішення |  Завдання для додаткового рішення |

© um.co.ua - учбові матеріали та реферати