Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Katerinka890
20.03.2023 11:25 •
Информатика
Решить дана квадратная матрица n-го порядка. найти норму матрицы. нормой матрицы считать максимум из абсолютных величин ее элементов.
Показать ответ
Ответ:
accyxob
25.06.2020 14:11
var
a: array [1..10,1..10] of integer;
i,j,max,n: integer;
begin
readln(n);
for i:= 1 to n do
for j:= 1 to n do readln(a[i,j]);
max:= a[1,1];
for i:= 1 to n do
for j:= 1 to n do
if (a[i,j]>max) and (a[i,j]>0) then max:= a[i,j];
writeln(max)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tytik1
09.04.2022 00:56
Не является частью никакой информационной системы.а) программное обеспечениеб) данныес) провайдерд) аппаратное обеспечение...
ns151199
15.08.2020 07:15
Перевести числа adbc2,ad34,2f65 из 16 в 10 систему счисления....
6755175
04.06.2023 09:26
Дан одномерный массив значения элементов которого вводят с клавиатуры. найти наименьший элемент массива и вывести новый массив, заполнив его данным значением....
7rus790
05.02.2022 00:34
Составьте программу, вычеркивающую из слова х буквы, встречающиеся при написании слова х ровно три раза. (паскаль)...
Znatokkekgg
27.08.2021 18:00
Дайте развёрнутую характеристику растровых и векторных изображений,указав в ней следующее: а)из каких элементов строится изображение; б)какая информация об изображении...
оркп
15.11.2022 01:52
Даны высказывания а=идет дождь,б=прогулка отменяется,с= вымок,д=я останусь дома. запишите следующее сложное высказывание на языке логики: f=я не вымокну,если на улице...
viktoriya2000ok
15.11.2022 01:52
Рассказ о строительстве санк-петербурга от лица петра первого...
kostyuchkova12
16.01.2020 09:29
Сколько битов содержится в одном байте? () 8 () 2 () 1024 () 10 сколько байтов в слове бит? () 24 () 8 () 3 () 2 сколько битов в слове байт? () 24 () 8 () 32 () 4...
kseshkaShkolnikova
16.01.2020 09:29
Программирование. даны три вещественных числа a,b,c. существует ли треугольник со сторонами a,b,c? program dz1; uses crt; var a,b,c: integer; begin writeln( введите...
GORH8
31.05.2020 17:06
Вms word команды представленные на рисунке находятся в каком меню? один ответ выберите: 1. правка 2. вставка 3. формат p.s. вот такой у меня вопрос.. это полный вопрос!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [1..10,1..10] of integer;
i,j,max,n: integer;
begin
readln(n);
for i:= 1 to n do
for j:= 1 to n do readln(a[i,j]);
max:= a[1,1];
for i:= 1 to n do
for j:= 1 to n do
if (a[i,j]>max) and (a[i,j]>0) then max:= a[i,j];
writeln(max)
end.