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

@GenaIK · Регистрация: 02.07.2013

Author24 — интернет-сервис помощи студентам

1) Определить максимальный и минимальный элемент среди элементов на главной диагонали
2) Построить массив из положительных элементов матрицы

@Divinesites · 04.07.2013, 01:02

PureBasic

CLS
n = 0
PRINT "vvedite n:"
INPUT n
f = 0
h = 0
k = 0
DIM c(n, n), d(n * n), a(n * n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT c(i, j)
NEXT
NEXT
 
FOR i = 1 TO n
FOR j = 1 TO n
IF i = j THEN a(i) = c(i, j)
IF c(i, j) > 0 THEN k = k + 1: d(k) = c(i, j)
NEXT
NEXT
max = c(1, 1)
min = c(1, 1)
FOR i = 1 TO n
IF a(i) > max THEN max = a(i)
IF a(i) < min THEN min = a(i)
NEXT
 
PRINT "max = "; max
PRINT
PRINT "min = "; min
 
PRINT
FOR u = 1 TO k
PRINT d(u)
NEXT

@GenaIK 0 / 0 / 0 Регистрация: 02.07.2013 Сообщений: 3
		1
	Определить максимальный и минимальный элемент среди элементов на главной диагонали матрицы 02.07.2013, 20:13. Показов 1068. Ответов 1 Метки нет (Все метки) 1) Определить максимальный и минимальный элемент среди элементов на главной диагонали 2) Построить массив из положительных элементов матрицы 0

	04.07.2013, 01:02

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

Решение