Найти максимальное значение массива - QBasic

Формулировка задачи:

Прошу помощи у великих программистов помочь мне написать программу по следующим задачам : 1. Дан одномерный массив чисел. Найти максимальное значение массива – mах и минимальное - min. Поменять местами max и min, если сумма первых 5-ти элементов больше суммы последних 5-ти элементов. 2.Дан двумерный массив целых чисел. Для каждой строки выяснить имеются ли в ней положительные элементы. Прошу прощения,если эти задачи кажутся слишком легкими...просто я учусь на технолога и совсем не знаю информатику.

Решение задачи: «Найти максимальное значение массива»

Листинг программы

FOR i = 1 TO n
pol = 0
FOR j = 1 TO m
IF a(i, j) > 0 THEN pol = pol + 1
NEXT j
b(i) = pol
NEXT i
FOR i = 0 TO n
IF b(i) <> 0 THEN
PRINT "положительные элементы в"; i; "строке Есть"
ELSE
PRINT " положит элементов НЕТ"
END IF
NEXT i

Объяснение кода листинга программы

В этом коде выполняются следующие действия:

Задаются два массива: a(i, j) и b(i).
Переменная pol инициализируется нулем.
Происходит два вложенных цикла:
- Первый цикл перебирает строки массива a(i, j).
- Второй цикл перебирает столбцы массива a(i, j).
- Если элемент массива a(i, j) больше нуля, то к переменной pol прибавляется единица.
Значение переменной pol записывается в массив b(i).
Происходит третий цикл, который перебирает строки массива b(i).
- Если значение элемента массива b(i) не равно нулю, то выводится сообщение положительные элементы в i строке Есть, где i - номер строки.
- Если значение элемента массива b(i) равно нулю, то выводится сообщение положит элементов НЕТ.