Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Basic > Форум QBasic
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 13.11.2012, 13:19   #1
Arkadia
Новичок
 
Регистрация: 12.11.2012
Сообщений: 3
Репутация: 0 (0)
Ввести массив A(N) и найти его среднеарифметическое значение / QBasic

Добрый день! Помогите пожалуйста справиться с информатикой)))
Ввести в память машины массив A(N), найти среднеарифметическое массива.
Огромное спасибо за помощь)))
Старый 13.11.2012, 14:01   #2
Vovk_Vladislav
Форумчанин
 
Регистрация: 20.09.2012
Сообщений: 80
Репутация: 10 (10)
Код QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
CLS
INPUT " vvedi n"; n
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
    s = s + a(i)
NEXT i
CLS
srar = s / n
PRINT "sr"; srar
END
Другие темы раздела Форум программистов QBasic. Язык программирования QBasic. Помощь в решении задач.
QBasic Найти сумму положительных элементов матрицы и их количество
Добрый день! Помогите пожалуйста справиться с информатикой))) Ввести в память машины двумерный массив А (М,N). Найти сумму положительных элементов матрицы и их количество. Огромное спасибо за помощь)))
Вставить после каждой буквы любую другую букву из русского алфавита QBasic
Дан текст "я изучаю информатику". Вставить после каждой буквы (пробел не считается) любую другую букву из русского алфавита так, чтобы "вставочные" буквы не повторялись... Вывести это дело на экран
Старый 13.11.2012, 17:33  [ТС]   #3
Arkadia
Новичок
 
Регистрация: 12.11.2012
Сообщений: 3
Репутация: 0 (0)
Спасибо большое!
Старый 13.11.2012, 17:33
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Windows 7 Было 8 процессоров, поставила 1
Здравствуйте. помогите пожалуйста решить проблему. Я решила поиграть в князя, установила, не запускался, попробовала пару способов запуска старых игр, дошла до - выставления при загрузке число процессоров(для других старых игр это помогало и все было норм, никаких сбоев или глюков), было 8...
renfree
Новости High-Tech 2010: Intel поставила рекорд продаж
Корпорация Intel, которой принадлежит около 80% мирового рынка процессоров, объявила о рекордных финансовых показателях за последний квартал и 2010 г. В текущем году вендор намерен добиться еще лучших результатов - благодаря выходу на рынок смартфонов и укреплению на рынке планшетных компьютеров. ...
mik-a-el
Windows 7 Благодаря Windows 7 Microsoft поставила финансовый рекорд
Рекордные результаты квартала, объявленные корпорацией Microsoft в четверг, не позволили Apple обойти Microsoft по объемам продаж, как это предсказывали аналитики. Корпорация Microsoft зафиксировала рекордные результаты - продажи в четвертом квартале финансового года составили 16 миллиардов...
mik-a-el
BIOS Поставила 2 Windows на 1 диск
Як тепер форматнути диск щоб поставити один Windows
Марічка
Новости интернета Россия поставила рекорд по социальным сетям
Россия поставила рекорд по социальным сетям Самыми увлеченными пользователями социальных сетей в мире оказались россияне. Исследования интернет-аналитиков из компании comScore показали, что именно России принадлежит пальма первенства в области виртуального общения. Средний российский...
insolent
Опции темы

Текущее время: 22:22. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.