Задачи на массив в Бейсике:((( Помогите пожалуйста

[Nise]

Уважаемые программеры, помогите пожалуйста с задачками. Уже желательно к завтрашнему дню надо решение А я никак не смогла разобраться с массивами Да и с Бейсиком вообще
1) В массиве Y, состоящем из N элементов, заменить отрицательные элементы на их квадраты, положителные увеличить на 3.
2) В двумерном массиве Y(N-строк, М-столбцов). Найти сумму элементов в каждой строке и минимальный среди этих сумм.

[como]

Что конкретно не понятно? Или нужно просто решение, а на понимание напливать?

[Nise]

Если честно... то уже наплевать на понимание... уже времени нету...(((((((( Таблицы то я поняла как делат ьв бейсике! А вот в массивах совсем полный ноль!(((

[como]

Аська есть?

[Nise]

У меня ася в телефоне не работает:-( у меня только майл агент nastenok777@bk.ru

[eoln]

Вот первая на qbasic'e

Const n = 3
Dim y(n)
Dim i
For i = 1 To n
  Print "y["; i; "]"
  INPUT y(i)
  If y(i) < 0 Then y(i) = y(i) ^ 2 Else If y(i) > 0 Then y(i) = y(i) + 3
Next i
For i = 1 To n
  Print y(i)
Next i
Print

Тут про массивы

[Nise]

Спасибо огромное! А вторую задачку не можете посмотреть? Блин, так стыдно, что не знаю ничего... Но уже поздно что-то заучивать...:'(

[Absent]

Заучивать бестолку, нужно понимать

[Nise]

Вот именно, что не могу понять никак...

[Slicker]

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

Dim y(n,m)
for i=0 to n
for j=0 to m
k=k+y(i,j)
next i
print k
next j