Corsairs
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Tavera Можно просто подсказать путь решения или полностью весь код? В этой теме уже были подобные задачи (т.е. поиск минимального и максимального) Надо только внести изменения для конкретной задачи... В первой задаче - в цикле находим минимум и максимум (и их индексы), и просто меняем значения элементов: Код: c[1,1]:=a[imin,jmin]; c[imin,jmin]:=a[1,1]; c[m,n]:=a[imax,jmax]; c[imax,jmax]:=a[m,n]; | Во второй задаче: элементы выше главной диагонали описываются так: Код: for i:=1 to n-1 do for j:=i+1 to n do | элементы ниже главной диагонали описываются так: Код: for i:=2 to n do for j:=1 to i-1 do | В третьей задаче: a[n,m] - исходный массив, b[n] - результат, тогда: Код: for i:=1 to n do begin z:=a[i,1]; ind:=1; if (i mod 2) = 1 then begin for j:=2 to m do if a[i,j]<z then begin z:=a[i,j]; ind:=j; end; writeln('строка ',i,' минимальный элемент равен ',z,' индекс - ',ind); end else begin for j:=2 to m do if a[i,j]>z then begin z:=a[i,j]; ind:=j; end; writeln('строка ',i,' максимальный элемент равен ',z,' индекс - ',ind); end; b[i]:=z; end; | Теперь надо отсортировать массив b[n] по возрастанию, и вывести его. |