имя матрицы и размеры массива : A(N,M)Отыскать среднее значение элементов массива.
Имя матрицы и размеры массива : A(N,M)
Отыскать среднее значение частей массива. Отыскать дальше индекс элементов массива, более недалёкого к среднему значению.
условия и ограничения : Nlt;=20,Mlt;=15 ??
Варвара Вайсбурд
Какой язык?
Василиса Шнитова
Паскаль
1 ответ
Кветинская Дарья
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программка не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Начальный массив ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var avg:=a.ElementsByRow.Average;
Writeln('Среднее значение ',avg);
var min:=(a.ElementsWithIndexes.Select(t-gt;(Abs(t[0]-avg),t[1],t[2]))
.MinBy(t-gt;t[0]));
Writeln('Наименее отличающийся от среднего элемент A[',
min[1]+1,',',min[2]+1,'] = ',a[min[1],min[2]])
end.
Пример
Количество строк и столбцов в массиве: 5 7
*** Начальный массив ***
-10 29 -69 98 40 -87 -64
74 -36 -62 -86 -3 -6 -48
-4 57 46 -23 -70 -5 25
-98 -2 23 9 -42 77 65
-57 -77 30 48 -52 -33 5
----------------------------
Среднее значение -8.8
Наименее отличающийся от среднего элемент A[1,1] = -10
// Внимание! Если программка не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Начальный массив ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var avg:=a.ElementsByRow.Average;
Writeln('Среднее значение ',avg);
var min:=(a.ElementsWithIndexes.Select(t-gt;(Abs(t[0]-avg),t[1],t[2]))
.MinBy(t-gt;t[0]));
Writeln('Наименее отличающийся от среднего элемент A[',
min[1]+1,',',min[2]+1,'] = ',a[min[1],min[2]])
end.
Пример
Количество строк и столбцов в массиве: 5 7
*** Начальный массив ***
-10 29 -69 98 40 -87 -64
74 -36 -62 -86 -3 -6 -48
-4 57 46 -23 -70 -5 25
-98 -2 23 9 -42 77 65
-57 -77 30 48 -52 -33 5
----------------------------
Среднее значение -8.8
Наименее отличающийся от среднего элемент A[1,1] = -10
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов