Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
VAR
A:ARRAY[1..4,1..4] of INTEGER;
i,j,Ifix,Jfix,Max:INTEGER;
BEGIN
{Ввод значений массива организуйте самостоятельно}
Max:=A[1,1];
FOR i:=1 TO 4 DO
FOR j:=1 TO 4 DO
IF A[i,j]>Max THEN
BEGIN
Max:=A[i,j];
Ifix:=i;
Jfix:=j;
END;
WriteLn('Maximum is A[',Ifix,',',Jfix,']= ',Max);
ReadLn;
END.