Массивы(QBasic)

[sprite_by]

Никак не могу решить задачи Может кто-нибудь поможет?

Задача1.
Определить наибольший и наименьший элементы массива X(n). Вывести исходный массив, эти элементы и их прядковые номера. Упорядочить массив X(n) по убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.


Задача2.
Дана матрица целых чисел X(n,m). Определить номер строки матрицы, сумма элементов которой минимальна. Вывести исходную матрицу,минимальную сумму и номер соответствующей строки. Значения буквенных переменных задавать с клавиатуры.

Пожалуйста!!! Очень надо...

[бедный_студент]

зад 1

input "razmernost", n,m
dim a(n,m)
dim b(n,m)
randomize timer
for i=1 to n
for j=1 to m
a(i,j)=int(rnd(1)*100)
a(i,j)=b(i,j)
print "a("i,j")= "a(i,j);
next j 
print
next i
dim c(n*m)
q=1

FOR i = 1 TO m
FOR j = 1 TO m - i
c(q)=a(i,j)
q=q+1
NEXT j
NEXT i

FOR i = 1 TO m
FOR j = 1 TO m - i
IF c(j) >= c(j + 1) THEN tmp = c(j): c(j) = c(j + 1): c(j + 1) = tmp
NEXT j
NEXT i
q=1
FOR i = 1 TO m
FOR j = 1 TO m - i
b(i,j)=c(q)
q=q+1
 print "b("i,j")= "b(i,j);
NEXT j
print
NEXT i

как то так, не проверял суть в том что у тя 3 массива начальный а конечный б и промежуточный одномерный с в который записываются все значения массива а подряд начиная с 1й строки 1го столбца и до конца и затем выводится в массив б

[sprite_by]

спасибо!!! Только не пониманию чё там выскакивает в ответе, какой-то набор цифр

[бедный_студент]

это называется массив выводится

[Ksunya92]

помогите пожалуйста решить задачу на массив

задан массив Р1...Pn.Определить его максимальный отрицательный элемент.Подсчитать количество целочисленных элементов,больших А.Вычислить произведение положительных элементов с чётными индексами