.

Лабораторные работы по информатике

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 190
Скачать документ

ОДЗ №2

Задан одномерный массив X(N). Первый положительный элемент записать на
место максимального с чётным номером.

N X1 X2 X3 X4 X5

5 -1 2 -3 6 8

INPUT “Ввести массив N=”; N

DIM X(N)

FOR I = 1 TO N

INPUT X(I)

NEXT I

NPOL = 0

FOR I = 1 TO N

IF X(I) > 0 THEN

NPOL = I

EXIT FOR

END IF

NEXT I

IF NPOL = 0 THEN

PRINT “Нет положительных элементов”

ELSE

MAXX = X(2)

FOR I = 4 TO N STEP 2

IF X(I) > MAXX THEN

MAXX = X(I)

NMAXX = I

END IF

NEXT I

X(NMAXX) = X(NPOL)

FOR I = 1 TO N

PRINT X(I)

NEXT I

END IF

Новый массив

-1 2 -3 2 8

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат
UkrReferat.com. Всі права захищені. 2000-2019