22 / 0 / 0
Регистрация: 28.12.2011
Сообщений: 88
1

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно

30.01.2012, 13:59. Показов 3050. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана матрица B[N, M]. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2012, 13:59
Ответы с готовыми решениями:

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом
Ошибка в задаче. Может я что-то не дописал. Исправьте пожалуйста программу. Дана матрица B....

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно
здравствуйте. помогите пожалуйста решить пару задач VIII.Двумерные массивы 23 Дана матрица B....

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно
Дана матрица B. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их...

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их с первым и последним элементом строки соответственно
дана матрица B.найти в каждой строке матрицы максимальный и минимальный элементы и поменять их с...

1
761 / 268 / 57
Регистрация: 13.12.2009
Сообщений: 1,101
30.01.2012, 18:03 2
вариант
Visual Basic
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub CommandButton1_Click()
Dim B() As Integer, n As Integer, m As Integer, i As Integer, j As Integer
Dim Max As Integer, Min As Integer, z As Integer, v As Integer
n = InputBox("Введите число строк", , 9)
m = InputBox("Введите число столбцов", , 7)
Cells.Clear
ReDim B(n, m)
Randomize
For i = 1 To n
For j = 1 To m
B(i, j) = Rnd() * 100 + 15
Cells(i + 1, j + 1) = B(i, j)
Next
Next
 
For i = 1 To n
Max = 0: Min = 900
For j = 1 To m
If Max < B(i, j) Then
Max = B(i, j)
z = j
End If
If Min > B(i, j) Then
Min = B(i, j)
v = j
End If
Next
f = B(i, 1)
g = B(i, m)
B(i, 1) = Max
B(i, m) = Min
B(i, z) = f
B(i, v) = g
Next
 
For i = 1 To n
For j = 1 To m
Cells(i + 3 + n, j + 1) = B(i, j)
Next
Next
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2012, 18:03
Помогаю со студенческими работами здесь

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их с первым и последним элементом строки соответственно.
Помогите лабу сделать. Буду вдвойне благодарна, если напишете еще и комментарии. Дана...

Найти в каждой строке матрицы минимальный и максимальный элементы и поменять их с первым и последним элементом строки соответственно
1. Найти в каждой строке матрицы минимальный и максимальный элементы и поменять их с первым и...

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом
Я решила задачку но что-то не так(ошибки никак не исправлю... помогите исправте ошибки,что не...

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом
Дана матрица B. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их...

Найти в каждой строке матрицы макс. и мин. элементы и поменять их местами первым и последним элементом строки соответственно
Дана матрица B.Найти в каждой строке матрицы макс. и мин. элементы и поменять их местами первым и...

Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.
здаствуйте ребята прошу поMогите пожалуйста Дан двумерный массив размером n*m, заполненный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru