// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var n:=ReadInteger('n='); var m:=18; var a:=MatrixRandom(m,n,-999,999); var imax:=0; var jmax:=0; for var i:=0 to m-1 do begin for var j:=0 to n-1 do begin Write(a[i,j]:5); if abs(a[i,j])>abs(a[imax,jmax]) then begin imax:=i; jmax:=j end end; Writeln end; Writeln('Максимум по модулю А[',imax+1,',',jmax+1, ']=',a[imax,jmax]) end.
Жили – были в лесу: Заяц, Лиса, Волк и Медведь. Как-то раз, весной, после зимней спячки встал медведь и говорит: «Я опять выспаться не успел». Лесные жители давай над ним смеяться. Медведю это не понравилось, и он ушел. Стал он придумывать, как бы им отомстить. Ходил он, ходил, думал, думал и придумал. Зайца он решил испугать, когда он в школу пойдёт, чтобы забыл он туда дорогу. У Лисы своровал деньги, чтобы она не ходила по магазинам, не модничала, и не зазнавалось. А Волка решил подкараулить, поймать и посадить в клетку.
некоторое время. И вот идёт Заяц, а навстречу ему Лиса. Спрашивает Лиса у него: «Ты что такой грустный». А он ей отвечает: «Да меня Медведь пугает, и теперь я не могу в школу ходить», А Лиса говорит: «И у меня неприятность». Заяц спрашивает: «Что случилась?». А она ему: «У меня деньги пропали». Заяц говорит Лисе: «Может это Медведь украл?». Они подумали, почему не видать Волка. Лиса: «Может он заболел». Заяц: «Ну, пойдём, сходим к нему, посмотрим, что он делает». И вот они пришли, стучат в дверь, стучат, а им никто не открывает. Тогда они стали переживать и пошли на поиски. Но Волка было не слыхать.
Решили они сходить к Мудрой Сове. Всё ей рассказали, какие у них неприятности – что натворил Медведь. Мудрая Сова решила вызвать Медведя на лесной совет и убедить его, что он не прав в своих поступка. Вот вызвали Медведя на лесной совет. И стали убеждать его в том, что у каждого есть свои права. Каждый имеет право на образование, поэтому Заяц должен учиться. Каждый имеет право на свободное передвижение, на пользование денежными единицами, а также на право свободного выбора и на личную собственность. Каждый имеет право на свободу, на личную неприкосновенность, а самое главное право на жизнь. Медведю рассказали много всяких прав и убедили его в том, что никто не должен нарушать эти права. Медведь подумал и решил, что он поступил не правильно и не красиво. Решил он исправить свои ошибки: пришёл к Лисе и отдал деньги, Зайца больше не стал пугать, Волка выпустил на волю. Лесные жители извинились перед Медведем за то, что они над ним смеялись. Медведь тоже извинился за свои поступки.
Стали они жить дружно и не ссориться. Потому что каждый знал свои права и их не нарушал. Так если стал мир и покой в лесу, то, как нам, людям, не знать свои права и обязанности, и их не выполнять? Стыдно!
begin
var n:=ReadInteger('n=');
var m:=18;
var a:=MatrixRandom(m,n,-999,999);
var imax:=0;
var jmax:=0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:5);
if abs(a[i,j])>abs(a[imax,jmax]) then begin
imax:=i; jmax:=j
end
end;
Writeln
end;
Writeln('Максимум по модулю А[',imax+1,',',jmax+1,
']=',a[imax,jmax])
end.
Тестовое решение:
n= 10
-275 257 -860 744 -263 843 8 667 425 -547
-392 635 636 -441 -64 973 201 -864 -126 -868
-764 43 -884 -667 -113 807 354 966 -155 -527
532 -790 -911 0 -303 -471 453 431 -741 -582
-121 548 -946 610 724 -426 963 -589 -591 845
-846 629 728 634 -581 681 141 807 -142 -70
-510 42 -177 -48 -80 -601 547 -364 862 -593
-480 770 876 -544 253 -312 -11 -494 -391 -687
843 -56 558 0 -681 903 -519 -545 -418 15
387 646 -427 329 928 837 -274 101 -310 325
27 327 -452 -998 325 -616 752 273 -619 731
-307 -364 199 -454 86 546 483 823 -367 17
917 92 -945 -152 19 -126 198 -453 -473 416
961 888 815 283 286 -483 -604 557 674 935
-849 207 -926 -149 -677 -248 -552 -972 -756 -617
-646 -97 -532 673 407 934 272 700 -18 -548
186 206 -253 -35 769 -196 -179 915 259 -431
151 926 -851 -302 -134 -289 19 204 -474 -732
Максимум по модулю А[11,4]=-998
некоторое время. И вот идёт Заяц, а навстречу ему Лиса. Спрашивает Лиса у него: «Ты что такой грустный». А он ей отвечает: «Да меня Медведь пугает, и теперь я не могу в школу ходить», А Лиса говорит: «И у меня неприятность». Заяц спрашивает: «Что случилась?». А она ему: «У меня деньги пропали». Заяц говорит Лисе: «Может это Медведь украл?». Они подумали, почему не видать Волка. Лиса: «Может он заболел». Заяц: «Ну, пойдём, сходим к нему, посмотрим, что он делает». И вот они пришли, стучат в дверь, стучат, а им никто не открывает. Тогда они стали переживать и пошли на поиски. Но Волка было не слыхать.
Решили они сходить к Мудрой Сове. Всё ей рассказали, какие у них неприятности – что натворил Медведь. Мудрая Сова решила вызвать Медведя на лесной совет и убедить его, что он не прав в своих поступка. Вот вызвали Медведя на лесной совет. И стали убеждать его в том, что у каждого есть свои права. Каждый имеет право на образование, поэтому Заяц должен учиться. Каждый имеет право на свободное передвижение, на пользование денежными единицами, а также на право свободного выбора и на личную собственность. Каждый имеет право на свободу, на личную неприкосновенность, а самое главное право на жизнь. Медведю рассказали много всяких прав и убедили его в том, что никто не должен нарушать эти права. Медведь подумал и решил, что он поступил не правильно и не красиво. Решил он исправить свои ошибки: пришёл к Лисе и отдал деньги, Зайца больше не стал пугать, Волка выпустил на волю. Лесные жители извинились перед Медведем за то, что они над ним смеялись. Медведь тоже извинился за свои поступки.
Стали они жить дружно и не ссориться. Потому что каждый знал свои права и их не нарушал. Так если стал мир и покой в лесу, то, как нам, людям, не знать свои права и обязанности, и их не выполнять? Стыдно!