Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gly77oxlysj
22.05.2023 05:11 •
Информатика
Вдвухмерном массиве а(4,4)найти наибольший элемент, лежащий на главной диагонали
Показать ответ
Ответ:
kiry42rus
23.07.2020 23:16
Var
a: array[1..4,1..4]of integer;
i,j,max: integer;
begin
max:=-MaxInt;
for i := 1 to 4 do
for j:=1 to 4 do
begin
read(a[i,j]);
if (i=j) and (a[i,j]>max) then max:=a[i,j];
end;
writeln('max = ',max);
end.
abs pascal
0,0
(0 оценок)
Популярные вопросы: Информатика
genek711
18.05.2021 21:17
Як записується безумовний оператор? ...
IgorGr1ef
29.04.2020 09:37
Упростить выражение, используя законы алгебры логики...
caros14
13.01.2023 21:06
Составьте алгоритм в виде блок-схемы, используя автофигуры Найти сумму чисел, кратных трём, в диапазоне от 10 до 30. Вывести на экран сумму чисел и их количество....
pixelbit
25.07.2022 02:27
Написать программу в pascalabc.net написать программу,которая выводит таблицу значений функции y=|-20+(x+10)|.диапозон изменения аргумента от -4 до 4,шаг приращения...
StanleyPines618
15.04.2020 14:23
Диапазон с4: е5 электронной таблицы содержит сколько ячеек? !...
Shanmao
25.08.2020 21:04
Какая операция не применяется для редактирования текста? а) удаление в тексте неверно набранного символа б) вставка пропущенного символа в) печать текста...
gabbasovilas
04.01.2023 05:44
Вычислите значение выражения: 537,28-ca,216+11011,12 ответ запишите в 16-ричной системе счисления...
TToMoLLIHuK1
04.01.2023 05:44
Написать программу 1. в которой элементы двумерного массива равны сумме квадратов индексов, 2. которая циклически сдвигает заданный одномерный массив на один элемент...
liza0281
04.01.2023 05:44
1)во время исполнения прикладная программа хранится: а) в процессоре б) в пзу в) в оперативной памяти 2) постоянное запоминающее устройство служит для: а) хранение...
VanyaKiba
30.04.2021 05:45
Составить таблицу истинности и логическое выражение по данной логической схеме...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..4,1..4]of integer;
i,j,max: integer;
begin
max:=-MaxInt;
for i := 1 to 4 do
for j:=1 to 4 do
begin
read(a[i,j]);
if (i=j) and (a[i,j]>max) then max:=a[i,j];
end;
writeln('max = ',max);
end.
abs pascal