Найти количество положительных частей двумерного массива находящихся на основной
Найти количество положительных частей двумерного массива находящихся на основной диагонали матрицы размером 10*10 ( с вводом и выводом) ( желательно в Basik и с методом)
Задать свой вопрос1 ответ
Реуцков
Боря
Microsoft QBasic 1.0
Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на промежутке [-45;45]. Если нужен конкретно ввод, строчку A(I)=RND...
поменяйте на INPUT(A(I))
CONST n = 10
DIM a(1 TO n, 1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
PRINT "Матрица A"
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(90 * RND - 45)
PRINT USING ""; a(i, j);
NEXT j
PRINT
NEXT i
k = 0
FOR i = 1 TO n
IF a(i, i) gt; 0 THEN k = k + 1
NEXT i
PRINT
PRINT "Количество положительных на ГД одинаково "; k
Пример исполненья программки
Матрица A
-33 43 -43 3 19 -43 28 19 32 27
-40 -4 -11 -27 -30 -7 35 19 24 0
-21 -43 30 10 -16 39 43 16 30 4
-39 40 13 3 -42 -5 -27 38 39 27
-26 34 -17 -26 12 36 21 23 28 -29
15 33 -44 -20 2 -36 -38 42 -44 -27
-10 -6 15 -17 -39 10 21 1 -6 32
-23 8 19 27 -19 -43 43 6 12 -18
-14 -39 8 -8 -4 18 44 6 -30 -24
9 -18 0 40 16 15 28 44 26 26
Количество положительных на ГД одинаково 6
Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на промежутке [-45;45]. Если нужен конкретно ввод, строчку A(I)=RND...
поменяйте на INPUT(A(I))
CONST n = 10
DIM a(1 TO n, 1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
PRINT "Матрица A"
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(90 * RND - 45)
PRINT USING ""; a(i, j);
NEXT j
NEXT i
k = 0
FOR i = 1 TO n
IF a(i, i) gt; 0 THEN k = k + 1
NEXT i
PRINT "Количество положительных на ГД одинаково "; k
Пример исполненья программки
Матрица A
-33 43 -43 3 19 -43 28 19 32 27
-40 -4 -11 -27 -30 -7 35 19 24 0
-21 -43 30 10 -16 39 43 16 30 4
-39 40 13 3 -42 -5 -27 38 39 27
-26 34 -17 -26 12 36 21 23 28 -29
15 33 -44 -20 2 -36 -38 42 -44 -27
-10 -6 15 -17 -39 10 21 1 -6 32
-23 8 19 27 -19 -43 43 6 12 -18
-14 -39 8 -8 -4 18 44 6 -30 -24
9 -18 0 40 16 15 28 44 26 26
Количество положительных на ГД одинаково 6
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов