Задачи на массивы в сисетме QBasic, напиши все программы, полностью - Помощь студентам - Страница 2

gaw4 · 23.10.2012, 18:35

вот 4 задачка

Код:

CLS
n = 10
REDIM a(n)
s = 0
FOR i = 1 TO n
a(i) = INT(RND * 90) + 10
IF a(i) > 50 THEN s = s + a(i)
PRINT a(i); " ";
NEXT i
PRINT : PRINT "S(>50)="; s

Death/// · 23.10.2012, 18:40

учителя нихрена не устраивают бесед по тому что не понятно. вот и на форумах пишем

Death/// · 23.10.2012, 18:48

gaw4, благодарю за 4ю. написать инт в формулу мне не пришло бы в голову точно

23.10.2012, 18:35	#11
gaw4 Форумчанин Регистрация: 31.05.2010 Сообщений: 407	вот 4 задачка Код: `CLS n = 10 REDIM a(n) s = 0 FOR i = 1 TO n a(i) = INT(RND * 90) + 10 IF a(i) > 50 THEN s = s + a(i) PRINT a(i); " "; NEXT i PRINT : PRINT "S(>50)="; s` icq 584 308 611

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на массивы. Полностью написана, только есть некоторые ошибки...	Liebe	Помощь студентам	0	19.01.2011 18:57
задачи по Qbasic	larik218	Помощь студентам	1	17.01.2011 13:07
определить все простые числа не превосходящие заданного N QBasic	werus	Помощь студентам	4	23.04.2009 13:32
Задачи. Массивы. QBasic.	mikainite	Помощь студентам	2	19.02.2009 22:45

23.10.2012, 18:40	#12
Death/// Пользователь Регистрация: 23.10.2012 Сообщений: 15	учителя нихрена не устраивают бесед по тому что не понятно. вот и на форумах пишем

23.10.2012, 18:48	#13
Death/// Пользователь Регистрация: 23.10.2012 Сообщений: 15	gaw4, благодарю за 4ю. написать инт в формулу мне не пришло бы в голову точно