Переписать четные элементы в массив E, а нечетные в массив B - QBasic

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

1) Дан массив C(K). Переписать четные элементы в массив E, а нечетные в массив B. Нулевые элементы отбросить. В какой последовательности элементов оказалось больше? 2) Дана матрица Порядка M. Верно ли, что минимальный и максимальный элементы числа четные и расположены в одной строке?

Решение задачи: «Переписать четные элементы в массив E, а нечетные в массив B»

Листинг программы

CLS
INPUT "BBEDITE M"; m
DIM a(1 TO m, 1 TO m)
FOR i = 1 TO m
FOR j = 1 TO m
a(i, j) = INT(RND * 100 - 50)
PRINT a(i, j);
NEXT j
PRINT
NEXT i
max = a(1, 1)
min = a(1, 1)
FOR i = 1 TO m
FOR j = 1 TO m
IF a(i, j) <= min THEN min = a(i, j): Imax = i
IF a(i, j) >= max THEN max = a(i, j): Imin = i
NEXT j
NEXT i
PRINT "max="; max, "ctroka max"; Imax
PRINT "min="; min, "ctroka min"; Imin
IF max MOD 2 = 0 AND min MOD 2 = 0 THEN
PRINT "max i min Chetnie"
ELSE
PRINT "max i min Ne chetnie"
END IF
IF Imax = Imin THEN
PRINT "max i min na odnoi stroke"
ELSE
PRINT "max i min na paznix strokax"
END IF

Объяснение кода листинга программы

CLS INPUT BBEDITE M; m DIM a(1 TO m, 1 TO m) FOR i = 1 TO m FOR j = 1 TO m a(i, j) = INT(RND * 100 - 50) PRINT a(i, j); NEXT j PRINT NEXT i max = a(1, 1) min = a(1, 1) FOR i = 1 TO m FOR j = 1 TO m IF a(i, j) <= min THEN min = a(i, j): Imax = i IF a(i, j) >= max THEN max = a(i, j): Imin = i NEXT j NEXT i PRINT max=; max, ctroka max; Imax PRINT min=; min, ctroka min; Imin IF max MOD 2 = 0 AND min MOD 2 = 0 THEN PRINT max i min Chetnie ELSE PRINT max i min Ne chetnie END IF IF Imax = Imin THEN PRINT max i min na odnoi stroke ELSE PRINT max i min na paznix strokax END IF В этом коде представлены две вложенные циклы, которые заполняют массив a случайными целыми числами от -50 до 50. Затем находится максимальное и минимальное значение в массиве. Далее, с помощью двух вложенных циклов, находятся индексы ячеек массива, содержащих минимальное и максимальное значение. Затем проверяется, являются ли эти значения четными или нечетными. Если оба значения четные, выводится сообщение max i min Chetnie. Если хотя бы одно из значений нечетное, выводится сообщение max i min Ne chetnie. Далее, проверяется, являются ли индексы ячеек с максимальным и минимальным значением одинаковыми. Если это так, выводится сообщение max i min na odnoi stroke. Если индексы разные, выводится сообщение max i min na paznix strokax.