Массивы в QBasic

Всем дарова=)
Знач такая тема)) все, у кого есть желание помочь, могут помочь мне=)
Надо составить программу в QBasic'e...
Вот задание:

"Дан одномерный массив, состоящий из N элементов заполнить его целыми случайными числами в интервале от -50 до 50. Подсчитать кол-во отрицательных элементов в одномерном массиве"

________________________
http://www.lsc.my1.ru/ - это не реклама, это сайт клана L.S.C

так. давно это было, может где и ошибки будут, но если автор темы хоть чуток шарит в QB он поправит.
10 PRINT "Введите число элементов массива"
20 INPUT N
30 DIM A(N)
40 FOR i=1 to N
50 A(i)= Int(100*RND(1))
60 A(i) = A(i) - 50
70 If A(i) < 0 then S=S+1
80 Next i
90 PRINT "Число отрицательных элементов в массиве"; S

________________________
Жизнь надо прожить так, чтобы Боги в восторге дали ещё одну.

С тебя бутылка Туборга

________________________
Жизнь надо прожить так, чтобы Боги в восторге дали ещё одну.

Спс, в бейсике я шарю, просто болел, когда эта тема была, если всё прально, то с меня бутылка Туборга))))

________________________
http://www.lsc.my1.ru/ - это не реклама, это сайт клана L.S.C

Это вы в школе такое проходите?

Ну в принципе мне когда 15 лет было, мы тоже такое в школе проходили :) тада ещё IBM 86-й серии были :D

________________________
Жизнь надо прожить так, чтобы Боги в восторге дали ещё одну.

Lynx whose name Alex крутая у Вас школа была...

И мы такое в школе проходили:) но QBasic в упор не помню, у нас в школе вторым языком шел Fortran, который потом и в универе изучали и пользовались......

________________________
Что может дать один человек другому кроме капли тепла. И что может быть больше этого ...(с)

Tais и у Вас крутая)) а мы вот на счётах))) И потом зачем эти старые непростые языки) даёшь SQL

Castor (2008-02-14 09:22)Tais и у Вас крутая)) а мы вот на счётах))) И потом зачем эти старые непростые языки) даёшь SQL

Castor - я просто не безумно давно закончила школу.....тогда в школе у нас стояли 386 компы....а дома у меня тогда появился "пень первый"- и это было круто:))

Fortran не умрет лишь потому что он стабилен...и на нем уже написано немысленое количество программ - особенно математических.
Любой студент инженерного ВУЗа пользуется такими прогами.

Я работала в свое время програмистом немножко - на VisualС++ кое что ваяли- так могу сказать, что в некоторых областях он был абсолютно неудобен....

________________________
Что может дать один человек другому кроме капли тепла. И что может быть больше этого ...(с)

Tais да я в общем то тоже не очень давно окончил, и помню кк всё начиналось не с 386, а меньше гораздо меньше 20 и 80 были.
Но это лирика я языки. Я не программер, так что вот.

Castor (2008-02-14 09:40)Tais да я в общем то тоже не очень давно окончил, и помню кк всё начиналось не с 386, а меньше гораздо меньше 20 и 80 были.
Но это лирика я языки. Я не программер, так что вот.

да я знаю:))) у меня первый комп был 286....а у знакомых 186:)

________________________
Что может дать один человек другому кроме капли тепла. И что может быть больше этого ...(с)

емае, в школе до сих пор это проходят :)

там помоему нада еще S обнулять

Lantr (2008-02-14 10:32)емае, в школе до сих пор это проходят :)

там помоему нада еще S обнулять

обнулять не надо:) а вот в начале присвоить его равным нулу - моно:)

________________________
Что может дать один человек другому кроме капли тепла. И что может быть больше этого ...(с)

ну так оно самое и имелось ввиду :) просто непральна выразился
обнулять перед началом расчета, Вот

Lynx whose name Alex (2008-02-14 01:21)Ну в принципе мне когда 15 лет было, мы тоже такое в школе проходили :) тада ещё IBM 86-й серии были :D

а вот мы на уроках "компьютерной подготовки" (кажется так называлось) на компьютерах, типа Электроники, играли в игрушку, где маааленький черно-белый человечек прыгает по разным этажам
а за хорошие оценки подметали пол в классе... вот такие у меня знания программирования
поэтому когда в институте я узнала о существовании какого-то Бэйсика и Турбо Паскаля, мне стало как-то не по себе

________________________
Есть люди, в которых живет Бог. Есть люди, в который живет Дьявол. А есть люди, в которых живут только глисты.
Если во мне живет Бог, то он в меня сослан.

Skicher (2008-02-14 12:57)а вот мы на уроках "компьютерной подготовки" (кажется так называлось) на компьютерах, типа Электроники, играли в игрушку, где маааленький черно-белый человечек прыгает по разным этажам
а за хорошие оценки подметали пол в классе... вот такие у меня знания программирования
поэтому когда в институте я узнала о существовании какого-то Бэйсика и Турбо Паскаля, мне стало как-то не по себе

А перфокарты помнишь?

________________________
Душа хочет романтики, а жопа приключений!

sergey_70 (2008-02-14 13:00)А перфокарты помнишь?

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

________________________
Есть люди, в которых живет Бог. Есть люди, в который живет Дьявол. А есть люди, в которых живут только глисты.
Если во мне живет Бог, то он в меня сослан.

sergey_70 (2008-02-14 13:00)А перфокарты помнишь?

я помню:))) у мама их с работы приносила:)))))))

________________________
Что может дать один человек другому кроме капли тепла. И что может быть больше этого ...(с)

Tais (2008-02-14 13:20)я помню:))) у мама их с работы приносила:)))))))

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

________________________
Есть люди, в которых живет Бог. Есть люди, в который живет Дьявол. А есть люди, в которых живут только глисты.
Если во мне живет Бог, то он в меня сослан.