Найти сумму элементов главной и второстепенной диагонали матрицы - QBasic
Формулировка задачи:
1. Дан массив A(N, N), состоящий из случайных чисел от 1 до 9. Вывести сам массив, а также сумму элементов главной и второстепенной диагонали.
2. Дан массив A(N,N), состоящий из случайных чисел от 10 до 20. Вывести сам массив и среднее арифметическое элементов массива, находящихся в правом треугольнике.
3. Дан массив A(N,M), состоящий из случайных двухзначных чисел. Вывести сам массив и количество элементов, кратных 3., а также минимальный элемент массива.
4. Создать массив A(N,N)), состоящий из случайных чисел от 1 до 9. Вывести массив. Найти S=(X+Y)/10, где X - номер столбца, содержащего максимальный элемент массива, Y – сумма элементов второстепенной диагонали.
5. Дан массив A (6, 6), состоящий из случайных трехзначных чисел. Поменять местами максимальный и минимальный элемент массива.
6. Дан массив A(N, N), состоящий из случайных двухзначных чисел. Поменять в массиве первую строку со строкой, содержащей максимальный элемент.
7. Дан массив A(N, N), состоящий из случайных двухзначных чисел. Поменять в массиве последний столбец со столбцом, содержащим минимальный элемент.
8. Дана матрица A(N, N), состоящая из чисел от 10 до 50. Заменить все элементы нижнего треугольника нулями. Транспонировать матрицу.
9. Отсортировать строки массива A(N, M) из случайных чисел от 10 до 25 по убыванию элементов.
10. Отсортировать столбцы массива A(N, M) из случайных чисел от 10 до 50 по убыванию элементов.
Решение задачи: «Найти сумму элементов главной и второстепенной диагонали матрицы»
textual
Листинг программы
CLS : INPUT "Vvedite N: ", N DIM A(N, N) AS INTEGER RANDOMIZE TIMER FOR iy = 1 TO N FOR ix = 1 TO N A(ix, iy) = RND * 8 + 1 PRINT A(ix, iy); NEXT: PRINT NEXT FOR i = 1 TO N Sgl = Sgl + A(i, i) Svt = Svt + A(N - i + 1, i) NEXT PRINT "Summa glavnoj :"; Sgl PRINT "Summa vtorostepennoj :"; Svt
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д