Найти сумму элементов главной и второстепенной диагонали матрицы

@jaguar9009 · Регистрация: 03.05.2011

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

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 по убыванию элементов.

@кот Бегемот · 04.05.2011, 19:40

Читай п.6:
Как запостить тему, чтобы не получить ответ

@Quiet Snow · 05.05.2011, 14:08

1.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

2.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 * 10 + 10
    IF iy > N - ix AND ix > iy - 1 THEN COLOR 10 ELSE COLOR 12
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
 FOR iy = 1 TO N
    FOR ix = 1 TO N
       IF iy > N - ix AND ix > iy - 1 THEN S = S + A(ix, iy): k = k + 1
 NEXT ix, iy
 PRINT "Sr arifm pravogo treugolnika :"; S / k

3.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
DIM A(M, N) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO N
     FOR ix = 1 TO M
     A(ix, iy) = RND * 89 + 10
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Min = 100   ' Больше макс знач.
  FOR iy = 1 TO N
     FOR ix = 1 TO M
        IF A(ix, iy) < Min THEN Min = A(ix, iy)
        IF A(ix, iy) MOD 3 = 0 THEN k = k + 1
  NEXT ix, iy
  PRINT "Minimalnyj element :"; Min
  PRINT "Kratnyh elementov  :"; k

4.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
  Max = 0   'Меньше мин знач.
  FOR iy = 1 TO N
     Y = Y + A(N - iy + 1, iy)
     FOR ix = 1 TO N
        IF A(ix, iy) > Max THEN Max = A(ix, iy): X = ix
  NEXT ix, iy
  PRINT "S ="; (X + Y) / 10

5.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
CLS
DIM A(6, 6) AS INTEGER
  RANDOMIZE TIMER
  FOR iy = 1 TO 6
     FOR ix = 1 TO 6
     A(ix, iy) = RND * 899 + 100
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Min = 1000   'Больше макс знач.
  Max = 0      'Меньше мин знач.
  FOR iy = 1 TO 6
     FOR ix = 1 TO 6
        IF A(ix, iy) > Max THEN Max = A(ix, iy): Xma = ix: Yma = iy
        IF A(ix, iy) < Min THEN Min = A(ix, iy): Xmi = ix: Ymi = iy
  NEXT ix, iy
  PRINT "   Max ="; Max; " poziciya: ("; Xma; ","; Yma; ")"
  PRINT "   Min ="; Min; " poziciya: ("; Xmi; ","; Ymi; ")"
     SWAP A(Xma, Yma), A(Xmi, Ymi)
  PRINT "Novaya matrica :"
  FOR iy = 1 TO 6
     FOR ix = 1 TO 6
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT

6.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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 * 89 + 10
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Max = 0      'Меньше мин знач.
  FOR iy = 1 TO N
     FOR ix = 1 TO N
        IF A(ix, iy) > Max THEN Max = A(ix, iy): Ym = iy
  NEXT ix, iy
  PRINT "   Max ="; Max; " Stroka:"; Ym
     '  Меняем строку
     FOR i = 1 TO N
        SWAP A(i, 1), A(i, Ym)
     NEXT
  PRINT "Novaya matrica :"
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT

7.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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 * 89 + 10
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT
  Min = 100      'Больше макс знач.
  FOR iy = 1 TO N
     FOR ix = 1 TO N
        IF A(ix, iy) < Min THEN Min = A(ix, iy): Xm = ix
  NEXT ix, iy
  PRINT "   Min ="; Min; " Stolbec:"; Xm
     '  Меняем столбец
     FOR i = 1 TO N
        SWAP A(N, i), A(Xm, i)
     NEXT
  PRINT "Novaya matrica :"
  FOR iy = 1 TO N
     FOR ix = 1 TO N
     PRINT A(ix, iy);
     NEXT: PRINT
  NEXT

8.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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 * 40 + 10
    IF iy > ix - 1 AND ix > N - iy THEN COLOR 10 ELSE COLOR 12
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
   ' Замена
 FOR iy = 1 TO N
    FOR ix = 1 TO N
       IF iy > ix - 1 AND ix > N - iy THEN A(ix, iy) = 0
 NEXT ix, iy
   ' Транспонирование
 FOR iy = 1 TO N
    FOR ix = 1 TO N
      IF iy > ix THEN SWAP A(ix, iy), A(iy, ix)
 NEXT ix, iy
   ' Вывод матрицы
   COLOR 7: PRINT
 FOR iy = 1 TO N
    FOR ix = 1 TO N
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT

9.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
DIM A(M, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    A(ix, iy) = RND * 15 + 10
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
   ' Сортировка
 FOR iy = 1 TO N
    FOR j = M - 1 TO 1 STEP -1
       FOR ix = 1 TO j
       IF A(ix, iy) < A(ix + 1, iy) THEN SWAP A(ix, iy), A(ix + 1, iy)
    NEXT ix, j
 NEXT
 PRINT "Novaya matrica: "
   ' Вывод матрицы
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT

10.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
DIM A(M, N) AS INTEGER
 RANDOMIZE TIMER
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    A(ix, iy) = RND * 40 + 10
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT
   ' Сортировка
 FOR ix = 1 TO M
    FOR j = N - 1 TO 1 STEP -1
       FOR iy = 1 TO j
       IF A(ix, iy) < A(ix, iy + 1) THEN SWAP A(ix, iy), A(ix, iy + 1)
    NEXT iy, j
 NEXT
 PRINT "Novaya matrica: "
   ' Вывод матрицы
 FOR iy = 1 TO N
    FOR ix = 1 TO M
    PRINT A(ix, iy);
    NEXT: PRINT
 NEXT

@jaguar9009 · 05.05.2011, 22:11 **[ТС]**

большое спасибо!!!!!!!!!!!!!!!!

@Shkap · 06.05.2011, 17:43

кот Бегемот, у нас есть мазохисты, так что здесь и такие темы сделают

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@jaguar9009 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 7

	Найти сумму элементов главной и второстепенной диагонали матрицы 04.05.2011, 17:00. Показов 5050. Ответов 4 Метки нет (Все метки) 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 по убыванию элементов. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	04.05.2011, 19:40
	Читай п.6: Как запостить тему, чтобы не получить ответ 1

@jaguar9009 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 7
	05.05.2011, 22:11 [ТС]
	большое спасибо!!!!!!!!!!!!!!!! 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	06.05.2011, 17:43
	кот Бегемот, у нас есть мазохисты, так что здесь и такие темы сделают 1

Найти сумму элементов главной и второстепенной диагонали матрицы

Решение