Найти наибольший элемент среди стоящих на главной и побочной диагоналях - Turbo Pascal (33745)

Формулировка задачи:

Дана действительная квадратная матрица порядка n, все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей.

Код к задаче: «Найти наибольший элемент среди стоящих на главной и побочной диагоналях - Turbo Pascal (33745)»

textual
// Г*Г*õîäèì Г*îìåðГ* Г¬Г*êñèìóìГ* äèГ*ГЈГ®Г*Г*ëåé
imax:=1; jmax:=1; // Г*îìåðГ* Г¬Г*êñèìóìГ*
for i:=1 to n do
begin
  if a[i,i]>a[imax,jmax] then
  begin
    imax:=i;
    jmax:=j;
  end;
  if a[i,n-i+1]>a[imax,jmax] then
  begin
    imax:=i;
    jmax:=j;
  end;
end;
 
// Г§Г*ìåГ*Г* (tmp - âðåìåГ*Г*Г*Гї ïåðåìåГ*Г*Г*Гї)
// Г°Г*çìåð Г¬Г*òðèöû - Г*ГҐГ·ГҐГІГ*îå ÷èñëî
tmp:=a[n div 2+1,n div 2+1];
a[n div 2+1,n div 2+1]:=a[imax,jmax];
a[imax,jmax]:=tmp;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.100 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы