Материалы сайта
Это интересно
Лабораторные работы по информатике
ОДЗ №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 | ----------------------- [pic]