В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
venyast56oxem2g
venyast56oxem2g
12.03.2021 12:40 •  Информатика

Дана матрица, найти сумму и минимальный элемент на главной диагонали. на языке паскаль. 20

Показать ответ
Ответ:
настя7565
настя7565
10.08.2020 20:22
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var d:=a.ElementsWithIndexes.Where(t->t[1]=t[2]).ToArray;
  Writeln('Сумма элементов на главной диагонали: ',d.Sum(t->t[0]));
  var q:=d.Min;
  Writeln('Минимальный элемент [',q[1]+1,',',q[2]+1,']=',q[0]);
end.

Пример
Количество строк и столбцов в матрице: 5 6
*** Исходная матрица ***
  -5 -34 -95 -24 -22 -24
  16 -43 -57 -55  44 -34
 -89  26 -25  26  63  75
 -53  53  23 -43 -65 -29
  12 -74 -39  71  84  12

Сумма элементов на главной диагонали: -32
Минимальный элемент [2,2]=-43
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота