Наименьший элемент побочной диагонали матрицы поменять с первым элементом главной диагонали - Turbo Pascal

Узнай цену своей работы

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

В двумерном массиве размерностью 10 на 10 найти наименьший элемент побочной диагонали и поменять с первым элементом главной диагонали. Помогите пожалуйста, очень нужно решить, а я не очень понимаю, все типовые задачи уже облазил

Решение задачи: «Наименьший элемент побочной диагонали матрицы поменять с первым элементом главной диагонали»

textual
Листинг программы
  1. const n=10;
  2. var
  3.   a: array [1..n,1..n] of Integer;
  4.   i, j: Integer;
  5. begin
  6.   Randomize;
  7.   for i:=1 to n do for j:=1 to n do a[i,j]:=Random(21);
  8.   WriteLn('A =');
  9.   for i:=1 to n do begin
  10.     for j:=1 to n do Write(' ',a[i,j]:3); WriteLn;
  11.   end;
  12.   j:=1; for i:=2 to n do if a[n-j+1,j]>a[n-i+1,i] then j:=i;
  13.   WriteLn('Минимальный элемент поб.диагонали: a[',n-j+1,',',j,']=',a[n-j+1,j]);
  14.   i:=a[1,1]; a[1,1]:=a[n-j+1,j]; a[n-j+1,j]:=i;
  15.   WriteLn('A''=');
  16.   for i:=1 to n do begin
  17.     for j:=1 to n do Write(' ',a[i,j]:3); WriteLn;
  18.   end;
  19. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы