Тема
:
Помогите решить задачу
Показать сообщение отдельно
20.11.2017, 21:28
#
8
(
permalink
)
derba
Member
Регистрация: 19.07.2017
Адрес: Украииа
Сообщений: 3,599
Сказал(а) спасибо: 50
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация:
23905
Последние строки, после М:=0 можно упростить. Иначе излишние команды.
Цитата:
M:=0;
for i:=1 to N do
for j:=1 to N do
If M<=A[i,j] then M:=A[i,j];
Writeln('Max = ',M);
derba
Посмотреть профиль
Отправить личное сообщение для derba
Найти ещё сообщения от derba
Ads
Яндекс
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
55070