Найти в массиве min элемент главной диагонали и max побочной — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
min=a(1,1)
max=a(1,n)
FOR i=1 TO n
IF a(i,i)<min THEN min=a(i,i)
IF a(i,n-i+1)>max THEN max=a(i,n-i+1)
NEXT
PRINT min
PRINT max

Похожие записи/страницы: