Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.10.2015
Сообщений: 4
1

Переставить местами строку матрицы с max элементом и строку с минимальным средним арифметическим

01.12.2015, 13:28. Просмотров 989. Ответов 4
Метки нет (Все метки)


Здравствуйте. Помогите, пожалуйста, с написанием программы.
Дан массив А(N,N). Переставить местами строку с max элементом и строку с минимальным средним арифметическим.
Спасибо большое.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2015, 13:28
Ответы с готовыми решениями:

Переставить последнюю строку матрицы со строкой с максимальным средним арифметическим значением
Пожалуйста, помогите составить программу. Заданы два двумерных массива А(4,4) и В(3,3). Для...

Поменять местами строку с максимальный элемент и строку с минимальным элементом матрицы
привет!я хотел бы попросить знающих людей написать программу на языке С!надо поменять местами рядок...

Найти строку с минимальным средним арифметическим своих элементов
Как найти номер строки двумерного массива A( n,m) в которой среднеарифметическое значение ее...

Переставить строку матрицы с минимальным элементом и со строкой с заданным номером
Добрый вечер. Помогите пожалуйста. Дан массив R (М, M). Переставить строку с минимальным...

4
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
01.12.2015, 14:56 2
Цитата Сообщение от AlexSlepts Посмотреть сообщение
Помогите, пожалуйста
Начинайте, поможем
0
11189 / 3562 / 633
Регистрация: 13.02.2009
Сообщений: 10,655
01.12.2015, 15:43 3
Отсюда можно почерпнуть много:
Массивы. Обьявление массивов. Сортировка массивов
0
0 / 0 / 0
Регистрация: 13.10.2015
Сообщений: 4
01.12.2015, 20:05  [ТС] 4
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
.Sub matr()
Dim a() As Integer
Dim s() As Integer
Dim sr() As Integer
n = InputBox("введите размер массива")
ReDim a(n, n) As Integer
ReDim s(n) As Integer
ReDim sr(n) As Integer
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("Введите A(" & i & ", " & j & "):")
Next j, i
msgString = ""
For i = 1 To n
For j = 1 To n
msgString = msgString & a(i, j) & ", "
Next j
msgString = msgString & Chr(13)
Next i
MsgBox ("Массив А:" & Chr(13) & msgString)
Max = a(1, 1): nmax = 1
Min = a(1, 1): nmin = 1
k = 1
For i = 1 To n
For j = 1 To n
s(k) = s(i) + a(i, j)
Next j
k = k + 1
Next i
For i = 1 To k
sr(i) = s(i) / n
If sr(1) < sr(i) Then
nmin = i
End If
Next i
For i = 1 To n
For j = 1 To n
If a(i, j) > Max Then
Max = a(i, j)
nmax = i
End If
Next j
Next i
MsgBox ("Минимальный" & Str(Min) & Chr(13) & "Максимальный" & Str(Max))
For j = 1 To n
t = a(nmin, j)
a(nmin, j) = a(nmax, j)
a(nmax, j) = t
Next j
msgString = ""
For i = 1 To n
For j = 1 To n
msgString = msgString & a(i, j) & ", "
Next j
msgString = msgString & Chr(13)
Next i
MsgBox ("Массив А после обмена:" & Chr(13) & msgString)
End Sub
Проблема в строке, где пыаюсь найти среднее арифметическое...
0
11189 / 3562 / 633
Регистрация: 13.02.2009
Сообщений: 10,655
01.12.2015, 20:21 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Сравнивать надо не с первым средним, а с минимальным и переназначать.
Как-то так. не проверял
Visual Basic
1
2
3
4
5
6
7
8
smin = s(1) / n
For i = 2 To k
    sr(i) = s(i) / n
    If smin > sr(i) Then
        smin = sr(i)
        nmin = i
    End If
Next i
Добавлено через 2 минуты
И, кстати, k там лишняя. Есть же i
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2015, 20:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Переставить последнюю строку со строкой со средним арифметическим значением
Помогите пожалуйста составить программу. Заданы два двумерных массива А(4,4) и В(3,3). Для...

Заполнить строку нулей матрицы средним арифметическим по столбцам, а столбец - средним по строкам
В матрице(10на10) имеются строка и столбец, содержащие только элементы, раввные нулю. Заполните эту...

Переставить строку с минимальным элементом на главной диагонали матрицы со строкой с заданным номером
Помогите пожалуйста с задачкой Дан массив R(m,m).Надо переставить строку с минимальным элементом...

В матрице переставить последнюю строку со строкой с максимальным средним арифметическим значением
Заданы два двумерных массива А(4, 4) и В (3, 3). Для каждого из них переставить последнюю строку со...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.