Определить min элемент главной диагонали и max элемент побочной диагонали квадратного массива - Turbo Pascal

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

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

Определить минимальный элемент главной диагонали и максимальный элемент побочной диагонали квадратного массива.

Решение задачи: «Определить min элемент главной диагонали и max элемент побочной диагонали квадратного массива»

textual
Листинг программы
uses crt;
const
  n=9;
var
  a:array[1..n,1..n] of byte;
  i,j:byte;
  max,min:integer;
begin
  randomize;
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:= Random(100);
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln
  end;
  writeln;
  min:=a[1,1];
  for i:=1 to n do
  if a[i,i]<min then min:=a[i,i];
  max:=a[1,n];
  for i:=1 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
  writeln('минимум на главной=',min);
  writeln('максимум на побочной=',max);
  readln
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для работы с функцией randomize.
  2. Затем определяется константа n, которая равна 9.
  3. Далее объявляются переменные a, i и j, которые представляют собой массив, индексы и значения типа byte.
  4. После этого используется функция randomize, которая генерирует случайные числа в диапазоне от 0 до 100.
  5. Затем выполняется два вложенных цикла for, которые заполняют массив a случайными числами.
  6. После окончания циклов выполняется вывод содержимого массива a с помощью функции write.
  7. Затем переменные min и max инициализируются значением a[1,1] и a[1,n] соответственно.
  8. Далее выполняется цикл for, который обновляет значение min, если текущее значение a[i,i] меньше min.
  9. Затем выполняется еще один цикл for, который обновляет значение max, если текущее значение a[i,n-i+1] больше max.
  10. В конце выводится информация о минимальном значении на главной диагонали и максимальном значении на побочной диагонали с помощью функции writeln.
  11. Конец программы.

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

14   голосов , оценка 3.643 из 5
Похожие ответы