Народ, срочняк нужна помощь. Кто шарит в одномерных массивах в QBasic плз помогите прогу сделать.
Вот условие:
"Дан одномерный массив, состоящий из N элементов заполнить его целыми случайными числами из интервала от -50 до 50. Подсчитать кол-во отрицательных элементов в одномерном массиве." Кому не влом напишите прогу плз))
CLS
INPUT "N="; n
k = 0
DIM a(n)
FOR i = 1 TO n
a(i) = -50 + ((50 + 50) * RND)
NEXT i
FOR i = 1 TO n
IF a(i) < 0 THEN k = k + 1
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
PRINT k
END
Пожалуйста помогите, надо написать программу в вижел бейсике.
создать меню печатающее ваши оценки по физике, математике информатике за последнийф месяц. пнризнаки предмета вводиться.
Я вас скажу, что писать интерпретатор Бейсика на нормальном языке (на Си, например) гораздо интереснее, чем писать на самом Бейсике, хотя и Бейсик забавный, но не очень.
, Паскаль - рулит! 
![SPo1LeR[oldschool]: Медведев <3 Зенит](/images/users/gallery/526/172580_s.jpg)
