М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
23Олеся1
23Олеся1
24.04.2023 02:56 •  Информатика

Задана действительная квадратная матрица порядка n. найти наибольший по модулю элемент матрицы. не используя массива, получить квадратную матрицу порядка n-1 путем выбрасывания из исходной матрицы строки и столбца, на пересечении которых расположен элемент с найденным значением. размерность матрицы и значения ее элементов ввести с клавиатуры.

👇
Ответ:
nikitakozlav8niks
nikitakozlav8niks
24.04.2023
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2])))
      .MaxBy(x->x[2]);
  for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
  for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
  SetLength(a,n-1,n-1); a.Println(4)    
end.

Пример
Количество строк/столбцов в матрице: 5
  87  -5 -38  -9  57
  31  66  57 -25  40
  11  66  99 -79  91
  12  95  93  27 -97
  33 -94  14  19  39

  87  -5  -9  57
  31  66 -25  40
  12  95  27 -97
  33 -94  19  39
4,4(89 оценок)
Ответ:
eva77772
eva77772
24.04.2023
for(i
for(j
if(fabs(m[i][j])>fmax)
{
for(i <n-1)
for(j <n-1)
m[i][j]=m[i+1][j+1]
return
}

может быть
4,4(3 оценок)
Открыть все ответы
Ответ:
DashaV19022001
DashaV19022001
24.04.2023
Что такое бит?Если говорить по-простому, то бит - это единица информации. Может принимать два значения - в информатике это "1" или "0". "Истина" или "Ложь". "True" or "False". В электронике "1" и "0" отличаются величиной напряжения. Так по величине напряжения любое устройство может понять "1" ему прислали или "0".Итак:Бит может принимать значения: 1 или 0Что же такое байт1?Это величина информации равная 8 битам. Т.е. 1 байт это 8 последовательных "1" или "0" (битов). Например:000000011010101011111010И т.п... Так "1" и "0" можно переставлять местами 256 различными И байт может принимать 28 = 256 различных значений.
4,7(10 оценок)
Ответ:
Lusihvostfei
Lusihvostfei
24.04.2023
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 god:=2008; if ((god mod 60)>=4)and((god mod 60)<16) then write('Зелено'); if ((god mod 60)>=16)and((god mod 60)<28) then write('Красно'); if (god mod 60>=28)and((god mod 60)<40) then write('Желто'); if (god mod 60>=40)and((god mod 60)<52) then write('Бело'); if ((god mod 60)>=52)or((god mod 60)<4) then write('Черно');   f:=((god mod 60) mod 12);   case f of   4: write('й крысы'); 5: write('й коровы'); 6: write('го тигра'); 7: write('го зайца'); 8: write('го дракона'); 9: write('й змеи'); 10: write('й лошади'); 11: write('й овцы'); 0: write('й обезьяны'); 1: write('й курицы'); 2: write('й собаки'); 3: write('й свиньи'); end;
4,7(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ