Вопрос по информатике:
Найти среднее арифметическое положительный элементов двумерного массива (паскаль)
Пожаловаться
- 19.12.2017 05:40
- Информатика
- remove_red_eye 1688
- thumb_up 40
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Ср.арифм. положительных: ',a.ElementsByRow.Where(x->x>0).Average)
end.
Пример
Количество строк в массиве: 5 12
Количество столбцов в массиве: *** Исходный массив [5,12] ***
99 -73 -67 46 -95 -79 23 98 -53 -58 83 -12
68 62 -75 -25 -29 2 -22 5 -75 -83 -22 31
-41 -68 29 68 -92 95 97 -30 -23 -85 -5 -59
21 -99 57 43 -4 39 30 74 -14 55 -81 24
-43 96 3 -97 31 74 -52 82 48 1 -13 73
------------------------------------------------
Ср.арифм. положительных: 51.9
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Ср.арифм. положительных: ',a.ElementsByRow.Where(x->x>0).Average)
end.
Пример
Количество строк в массиве: 5 12
Количество столбцов в массиве: *** Исходный массив [5,12] ***
99 -73 -67 46 -95 -79 23 98 -53 -58 83 -12
68 62 -75 -25 -29 2 -22 5 -75 -83 -22 31
-41 -68 29 68 -92 95 97 -30 -23 -85 -5 -59
21 -99 57 43 -4 39 30 74 -14 55 -81 24
-43 96 3 -97 31 74 -52 82 48 1 -13 73
------------------------------------------------
Ср.арифм. положительных: 51.9
Пожаловаться
- 20.12.2017 02:27
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы