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