Определить количество положительных элементов двумерного массива находящихся на главной диагонали матрицы размером 10*10 ( с вводом и выводом) ( желательно в basik и с алгоритмом)
154
482
Ответы на вопрос:
Microsoft qbasic 1.0 ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45; 45]. если нужен именно ввод, строку a(i)= замените на 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) > 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
Популярно: Информатика
-
dasha01059822.01.2023 03:56
-
yura2342401.11.2020 15:56
-
fpu5181004.01.2020 13:47
-
Исбанка24.02.2021 12:17
-
gilewich15.06.2023 16:46
-
КсюшаКотW24.05.2021 17:02
-
QQQZZZQQQ22.04.2021 21:49
-
Hictoru20.03.2022 09:39
-
kivonen3p08qoq19.01.2020 16:54
-
Juliaok1234520.04.2020 02:40