Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел.

31.05.2011, 14:49. **Показов** 2873. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Ребят помогите ломаю голову сижу....
вообщем в qbasic'e
Задача 1 : Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел.
Задача 2 : Массив двухмерный (4,4) заполнить двухзначными числами, вывести ввиде таблицы, поменять местами максимальный и минимальный размер.

Заранее очень благодарен...

@ДваДва · 31.05.2011, 21:18

PureBasic

CLS
RANDOMIZE TIMER
DIM a(10)
FOR i = 1 TO 10
        a(i) = INT(RND * 89) + 10
        IF a(i) MOD 2 = 0 THEN s = s + a(i)
        PRINT a(i);
NEXT i: PRINT
PRINT s

PureBasic

CLS
RANDOMIZE TIMER
DIM a(4, 4)
mini = 2: minj = 1
maxi = 3: maxj = 1
a(1, 2) = 100
a(1, 3) = 0
 
FOR j = 1 TO 4
        FOR i = 1 TO 4
                a(j, i) = INT(RND * 89) + 10
                IF a(j, i) > a(maxj, maxi) THEN maxj = j: maxi = i
                IF a(j, i) < a(minj, mini) THEN minj = j: mini = i
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j
SWAP a(minj, mini), a(maxj, maxi): PRINT
FOR j = 1 TO 4
        FOR i = 1 TO 4
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j

Justero
		1
	Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел. 31.05.2011, 14:49. Показов 2873. Ответов 1 Метки нет (Все метки) Ребят помогите ломаю голову сижу.... вообщем в qbasic'e Задача 1 : Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел. Задача 2 : Массив двухмерный (4,4) заполнить двухзначными числами, вывести ввиде таблицы, поменять местами максимальный и минимальный размер. Заранее очень благодарен...

	31.05.2011, 21:18

Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел.

Решение