Определить для массива X(n) алгебраические суммы четных и нечетных элементов массива.
Найти для массива X(n) алгебраические суммы четных и нечетных частей массива. Вывести начальный массив и приобретенные значения. Упорядочить массив X(n) по возрастанию. Вывести приобретенный массив. Исходный массив частей получить с подмогою датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.
Помогите написать программу в QBasic и нарисовать блок-схему(необязательно)
1 ответ
Алексутина
Светлана
INPUT (N)
DIM X(N)
FOR I = 1 TO N
X(I) = INT(RND(1) * 10)
PRINT (X(I)); " ";
NEXT I
PRINT
FOR I = 1 TO N
IF X(I) MOD 2 = 0 THEN S2 = S2 + X(I) ELSE S1 = S1 + X(I)
NEXT I
PRINT "Сумма нечетных: "; S1
PRINT "Сумма четных: "; S2
FOR I = 1 TO N
FOR j = 1 TO N
IF X(I) lt; X(j) THEN
p = X(I)
X(I) = X(j)
X(j) = p
END IF
NEXT j
NEXT I
PRINT "Сортировка по возрастанию:"
FOR I = 1 TO N
PRINT (X(I)); " ";
NEXT I
DIM X(N)
FOR I = 1 TO N
X(I) = INT(RND(1) * 10)
PRINT (X(I)); " ";
NEXT I
FOR I = 1 TO N
IF X(I) MOD 2 = 0 THEN S2 = S2 + X(I) ELSE S1 = S1 + X(I)
NEXT I
PRINT "Сумма нечетных: "; S1
PRINT "Сумма четных: "; S2
FOR I = 1 TO N
FOR j = 1 TO N
IF X(I) lt; X(j) THEN
p = X(I)
X(I) = X(j)
X(j) = p
END IF
NEXT j
NEXT I
PRINT "Сортировка по возрастанию:"
FOR I = 1 TO N
PRINT (X(I)); " ";
NEXT I
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов