ЗАДАЧА ПО QBasic'y, помогите пожалуйста Опции

[Spail]

Народ спасайте! Помогите пожалуйста решить задачку простейшую решается будет ли у меня допуск или нет.
Задача:
Обработать на компьютере матрицу R(n,m): найти максимальный и минимальный элементы и поменять их местами. Предусмотреть обработку матрицы размером nxm элементов, где n<=20 и m<=20. Вывести на печать результаты и исходную матрицу в общепринятом виде. Проверить правильность выполнения программы с помощью текстового варианта (n=3 , m=4)


(Элементы матрицы Rзадать самостоятельно; в матрице могут быть как положительные так и отрицательные элементы могут быть и нули; среди элементов матрицы должны быть только один максимальный и один минимальный элемент; матрица должна быть размером не менее 4х6).

Буду очень благодарен кто поможет решить.

Сообщение отредактировано: Spail - 23.05.2007 13:01

[мисс_граффити]

как-то так, что ли?
сразу предупреждаю: выводится некрасиво, можешь заморочиться с форматированием.
проверку на величину m и n не добавляла - сам говоришь, первая часть правильная

Код

10 CLS
20 INPUT "введите кол-во строк"; n
30 INPUT "введите количество столбцов"; m
40 OPTION BASE 1
50 DIM R(n, m)
60 PRINT "введите элементы матрицы"
70 FOR i = 1 TO n
80 FOR j = 1 TO m
90 INPUT R(i, j)
100 NEXT j
110 NEXT i
120 max = R(1, 1)
130 jmax = 1
140 imax = 1
150 min = R(1, 1)
160 imin = 1
170 jmin = 1
175 S$ = ""
180 FOR i = 1 TO n
190 FOR j = 1 TO m
191 IF R(i, j) > max THEN max = R(i, j): imax = i: jmax = j
192 IF R(i, j) < min THEN min = R(i, j): imin = i: jmin = j
200 S$ = S$ + STR$(R(i, j)) + " "
210 NEXT j
220 PRINT S$
225 S$ = ""
230 NEXT i
240 PRINT (max)
250 PRINT (min)
260 R(imax, jmax) = min
270 R(imin, jmin) = max
280 FOR i = 1 TO n
290 FOR j = 1 TO m
300 S$ = S$ + STR$(R(i, j)) + " "
310 NEXT j
320 PRINT S$
325 S$ = ""
330 NEXT i