PascalABC.NET 3.2, сборка 1387 от 20.02.2017 Внимание! Если программа не работает, обновите версию!
//const // MAX_ROW=5; // MAX_COL=8; begin var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3); (var imax, var jmax, var imin, var jmin):=(0,0,0,0); for var i:=0 to MAX_ROW-1 do for var j:=0 to MAX_COL-1 do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j) else if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j); for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]); Writeln('-'*3*MAX_COL); a.Println(3) end.
Для проверки работы программы снимите комментарии с первых трех строк.
В СССР доступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. В это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». Легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] Магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).
2000 потомучто в 1 мбайте 1000байт
Объяснение:
2000 потомучто в 1 мбайте 1000байт