Дана квадратная матрица N*N. Подсчитать количество четных элементов в данной матрице — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CONST N = 10
DIM A(N, N)
CLS
K = 0
PRINT "Masiv A:"
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100)
PRINT A(I, J);
IF A(I, J) MOD 2 = 0 THEN K = K + 1
NEXT J
PRINT :
NEXT I
PRINT "K="; K

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment