Массив в QBasic

[andronova]

Помогите решить задачки с массивами.

[andronova]

1. Дан квадратный массив целых положительных чисел 10х10. Опишите алгоритм вычисления суммы элементов строки, в которой расположен элемент с максимальным значением. Вывести значение суммы на печать. Предполагается, что такой элемент единственный.
2. Опишите алгоритм поиска номера первого из двух последовательных элементов, сумма которых минимальна (если таких пар несколько, то можно выбрать любую из них).

[Rembo]

Ну и в чем заключается наша помощь? Хотите готовое решение? Нет, халява на этом форуме не приветствуется... Так что или выкладывайте свои наработки, либо идите в раздел фриланс (решение задач за деньги).

[andronova]

А вы поможете?
я совсем не сильна в программировании, но кое-что попробовала сделать.
Думала два дня над второй задачей. наконец-то родила вот это.
А посоветоваться или подсмотреть негде.
CLS
DIM A(10,10)
FOR I=1 TO 10
FOR J=1 TO 10
IF A(I,J)>B THEN C=I
IF A(I,J)>B THEN B=A(I,J)
NEXT J
NEXT I
FOR J=1 TO 10
S=S+A(C,J)
NEXT J
PRINT S
END

[Sazary]

andronova Как я понял, это вы привели свой вариант для первой задачи?
i,j,c,s не объявлены. Массив a(10,10) непонятно какого типа + не заполнен.

Вот первая. Заполняется случайными числами, выводится. Затем считается сумма.

CLS
DIM a(10, 10) AS INTEGER
DIM i, j, maxi, s AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO 10
 FOR j = 1 TO 10
  a(i, j) = INT(RND * 100)
  PRINT USING "###"; a(i, j);
 NEXT j
PRINT
NEXT i
'------------
maxi = 1
s = a(1, 1)
FOR i = 1 TO 10
 FOR j = 1 TO 10
  IF a(i, j) > s THEN
   s = a(i, j)
   maxi = i
  END IF
 NEXT j
NEXT i

s = 0
FOR j = 1 TO 10
 s = s + a(maxi, j)
NEXT j
PRINT
PRINT USING "Nomer stroki: ##"; maxi
PRINT s
END

[Sazary]

Ну и вторая вдогонку.

CONST n = 10
DIM a(n) AS INTEGER
DIM s, ts, i, ti AS INTEGER
CLS
RANDOMIZE TIMER

FOR i = 1 TO n
 a(i) = INT(RND * 20)
 PRINT USING "###"; a(i);
NEXT i
PRINT
s = a(1) + a(2)
ti = 1
FOR i = 2 TO n
 ts = a(i) + a(i - 1)
 IF ts < s THEN
  s = ts
  ti = i - 1
 END IF
NEXT i

PRINT USING "nomer elementa: ##;  summa= ###"; ti; s

END