Определить для массива X(n) алгебраические суммы четных и нечетных элементов массива. Вывести исходный массив и полученные значения. Упорядочить массив X(n
10-11 класс
|
) по возрастанию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.
Помогите написать программу в QBasic и нарисовать блок-схему(необязательно)
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) < 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
Другие вопросы из категории
где есть клады, используя 3 бита, 4 бита и 5 битов?
В процессе преобразования точечного графического рисунка количество цветов уменьшилось с 65536 до 16. Во сколько раз уменьшится объём, занимаемый им в памяти компьютера?
Заранее, огромное спасибо.
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
2.определите какие блоки программы присутствуют в тексте. 3.Определите размер массива. 4. Сколько элементов массива обрабатывается.
For i:= 0 to 10 do
A [ i] := i ;
for i := 0 to 10 do
begin
k := A [i];
A [i] : = A[10-i];
k := A[10-i];
end;
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы