помогите!!!нет больше сил!!!нужно найти матрицу Х=|x ij|и определить минимальные элементы каждой строки n i=min x ij,расположив их справа в дополнительном столбце,максимальные элементы каждого столбца m j=x ij,записав их внизу в дополнительной строке.сравнить max min x ij и min max x ij. А/4,4/, В/4,4/, Х=(А-В)А+2В

а может кто-нибудь программку поможет написать.я на первом курсе и вообще дуб по информатике.даже в школе её не было

вот что я натворила.исправьте пжл.
DECLARE SUB UMN ()
CLS
DIM A(4, 4)
PRINT "matrica A"
FOR i = 1 TO 4
FOR j = 1 TO 4
READ A(i, j)
PRINT A(i, j);
NEXT j
PRINT
NEXT i
DATA 1,2,3,4,5,6,5,4,3,2,5,4,1,3,2,1
PRINT
DIM B(4, 4)
PRINT "matrica B"
FOR i = 1 TO 4
FOR j = 1 TO 4
READ B(i, j)
PRINT B(i, j);
NEXT j
PRINT
NEXT i
DATA 4,5,7,3,1,2,1,9,8,4,2,3,1,2,2,5
PRINT
REM matrica T=A-B
DIM T(4, 4)
FOR i = 1 TO 4
FOR j = 1 TO 4
T(i, j) = A(i, j) - B(i, j)
NEXT j
NEXT i
REM matrica R=T*A
CALL UMN
PRINT "rezultatiruyuschaya matrica X=(A-B)A+2B s maksimalnymi i"
PRINT "minimalnymi elementami"
FOR i = 1 TO 4
FOR j = 1 TO 4
X(i, j) = R(i, j) + 2 * B(i, j)
PRINT T(i, j);
NEXT j
PRINT
NEXT i
FOR i = 1 TO 4
MINX = X(i, 1)
FOR j = 1 TO 4
IF X(i, j) < MINX THEN MINX = X(i, j)
PRINT USING "#######"; X(i, j);
NEXT j
PRINT " |"; MINX
MIN(i) = MINX
NEXT i
PRINT "_________________"
FOR j = 1 TO 4
MAXY = X(1, j)
FOR i = 1 TO 4
IF X(i, j) > MAXY THEN MAXY = X(i, j)
NEXT i
PRINT USING "#######"; MAXY;
MAX(j) = MAXY
NEXT j
PRINT
ymax = MAX(1)
ymin = MIN(1)
FOR i = 1 TO 4
IF MAX(i) < ymax THEN ymax = MAX(i)
IF MIN(i) > ymin THEN ymin = MIN(i)
NEXT i
PRINT "naibolshiy iz minimalnyh elementov strok raven "; ymin
PRINT "naimenshiy iz maksimalnyh elementov stolbcov raven "; ymax




SUB UMN
REM
REM umnozhenie matric T*A=R
REM
FOR i = 1 TO 4
FOR j = 1 TO 4
S = 0
FOR k = 1 TO 4
S = S + T(i, k) * A(k, j)
NEXT k
R(i, j) = S
NEXT j
NEXT i
END SUB

я наверно забыла упомянуть, что это всё в QBASIC надо

Модератор: Аналогичный топик перенесен в форум VB.