Помогите с задачками на QBasic

[igoreha]

Помогите решить пару задачек.
ОБщее требование к задачам:
Это задание по работе с одномерным массивом и применению условного оператора. Минимум дважды используется цикл с параметром. В первом цикле с клавиатуры вводятся значения элементов массива. Для упрощения работы вводите целые числа. Вводимые числа должны «подыгрывать» условию задачи. Во втором цикле выводятся значения исходного массива и значения, полученные в результате работы программы. Возможно, потребуется три цикла. Программа пишется для произвольного числа элементов массива. При запросе «Введите число элементов массива» вводите n = 8. Тексты программ сопроводить блок-схемами.
1. Задача
Организуйте массив. Определите значение и номер последнего отрицательного числа.
2. Задача
Организуйте массив. Выведите на дисплей значение и индекс предпоследнего положительного элемента.

[igoreha]

и никто не поможет и не подскажет ?

[Sazary]

Первая:

DIM i, k, n AS INTEGER
DIM mas(n) AS INTEGER
CLS
INPUT "Vvedite chislo elementov: "; n
REDIM mas(n)
FOR i = 1 TO n
PRINT USING "mas[#]= "; i;
INPUT mas(i)
mas(i) = CINT(mas(i))
NEXT i
'-------------
CLS
FOR i = 1 TO n
PRINT USING "####"; mas(i);
NEXT i
PRINT
'----------
FOR i = n TO 1 STEP -1
 IF mas(i) < 0 THEN
  k = i
  EXIT FOR
  END IF
NEXT i
PRINT USING "Poslednij otricatelnij element: mas(#)=##"; k; mas(k)

END

[Sazary]

Вторая:

DIM i, k, n AS INTEGER
DIM mas(n) AS INTEGER
CLS
INPUT "Vvedite chislo elementov: "; n
REDIM mas(n)
FOR i = 1 TO n
PRINT USING "mas[#]= "; i;
INPUT mas(i)
mas(i) = CINT(mas(i))
NEXT i
'-------------
CLS
FOR i = 1 TO n
PRINT USING "####"; mas(i);
NEXT i
PRINT
'----------
k = -2
FOR i = n TO 1 STEP -1
 IF mas(i) > 0 THEN
 IF k = -2 THEN
  k = -1
 ELSEIF k = -1 THEN
  k = i
  EXIT FOR
 END IF
END IF
NEXT i
PRINT USING "Predposlednij polozhitelnij element: mas(#)=##"; k; mas(k)

END

[igoreha]

Большое спасибо, только тупому объясните "AS INTEGER" в первых строках

[Sazary]

Это объявление переменной целого типа
DIM i AS INTEGER
Аналог в паскале:
i : integer;

[igoreha]

это аналогично символу "%" с переменной, но только сразу указывается всем?
да и еще, если не сложно объясните
USING "mas[#]= "; i;
и
mas(i) = CINT(mas(i))

[Sazary]

это аналогично символу "%" с переменной, но только сразу указывается всем?

Честно говоря, я сам еще пока не очень разобрался с этими знаками.. Поэтому просто не использую их ) Все работает )

PRINT USING "mas[#]= "; i;

Выводит форматированную строку. На место # подставляется значение переменной, указанной после строки

mas(i) = CINT(mas(i))

Это строчка, в принципе, вообще не нужна.
CINT округляет аргумент.
Но в вашем условии сказано:

Вводимые числа должны «подыгрывать» условию задачи

Не понял, что это значит, вот и написал )
Удалите ее )

[igoreha]

Еще раз "Спасибо". И за решение и за объяснение