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

В модели СМIK качество компонентов применяют цвета 1 красный синий зелёный черный
2красный жёлтый голубой синий

Показать ответ
Ответ:
Mayburovmaks
Mayburovmaks
30.10.2020 18:59
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.SelectMany(x->x).ToArray;
  var mx:=b.IndexMax; var mn:=b.IndexMin;
  Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
  Writeln('*** Матрица-результат ***'); a.Println(4);
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
  22  72  95 -18  48  15
 -25  72  73  45 -62  75
  49  95 -32  20  66  48
  55   7  57 -98  -8  94
  78  50 -49  73   0 -74

*** Матрица-результат ***
  22  72 -98 -18  48  15
 -25  72  73  45 -62  75
  49  95 -32  20  66  48
  55   7  57  95  -8  94
  78  50 -49  73   0 -74
0,0(0 оценок)
Ответ:
Karina902
Karina902
27.10.2022 18:17
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=8; var n:=9;
  Writeln('*** Исходная матрица D[',m,',',n,'] ***');
  var d:=MatrRandom(m,n,-100,100);
  d.Println(5); Writeln(5*n*'-');
  Writeln('Столбцы, в которых отрицательных элементов больше положительных');
  for var i:=0 to n-1 do
    if (d.Col(i).Where(x->x<0).Count)>(d.Col(i).Where(x->x>0).Count)
    then Print(i+1)
end.

Пример
*** Исходная матрица D[8,9] ***
   10  -41   26    3   98   64   -9  -11  -91
   -9  -43   44   -1   59  -74  -86  -61   -6
   39   72  -67   30  -65 -100  -51  -98  -29
   67  -43  -67   95   15  -30   11   14   51
  -66  -64   -7  -81   15   56  -20   46  -58
   12   19  -33  -92  -58   69   23  -43  -35
   36   80  -76   25  -47   95   -7   24  -69
   77   -4   42  -26   88  -56  -25   81  -98

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