Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
jiyji
1

Определить среднее количество осадков, выпавших в дни, когда шел дождь

27.10.2011, 21:18. Просмотров 1053. Ответов 3
Метки нет (Все метки)


В массиве кол-во осадков выпавших за каждый день августа. Определить среднее количество осадков , выпавших в дни , когда шел дождь. Помогите пожалуйста )
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2011, 21:18
Ответы с готовыми решениями:

Определить среднее количество осадков, выпавших в дни, когда шел дождь
В массиве хранятся сведения о количеств осадков, выпавших за каждый день августа. Определить...

Определить среднее количество осадков, выпавших в дни, когда шел дождь
В массиве хранятся сведения о количестве осадков, выпавших за каждый день августа. Опреде¬лить...

Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в в
Спасайте , на языке Паскаль, завтро экзамен =(( Добавлено через 1 минуту БУДУ ОЧЕНЬ БЛАГОДАРЕН...

Напечатать дни, когда было превышено среднемесячное количество осадков
Известны сведения о количестве осадков (в мм) за каждый день марта текущего года. Напечатать дни,...

3
4794 / 1465 / 392
Регистрация: 25.04.2010
Сообщений: 4,090
Записей в блоге: 1
27.10.2011, 21:31 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Массив давайте, в августе 31 день если чё.

Добавлено через 10 минут
Заполните сами(там где 0 - осадков нет и это значение не считаем)
PureBasic
1
2
3
4
5
6
7
8
9
10
 CLS
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0
  FOR i = 1 TO 31
     READ k
     IF k > 0 THEN sr = sr + k: n = n + 1
  NEXT
IF n > 0 THEN PRINT "Osadkov:"; sr / n ELSE PRINT "Ne bilo dojdei!"
0
20 / 20 / 19
Регистрация: 25.10.2011
Сообщений: 122
29.10.2011, 10:13 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Мне кажется массив нужно заполнить с клавиатуры, не? Ну так на всякий-
PureBasic
1
2
3
4
5
6
7
cls
DIM A(31)
FOR I=1 TO 31
INPUT "KOLI4ESTVO OSADKOV-";A(I)
IF A(I)>0 THEN S=S+A(I): D=D+1
NEXT
IF D=0 THEN ?"OSADKOV NE BILO" ELSE ?"SREDNEE KOLI4ESTVO OSADKOV - ";S/D
0
4794 / 1465 / 392
Регистрация: 25.04.2010
Сообщений: 4,090
Записей в блоге: 1
30.10.2011, 04:12 4
Мне кажется массив нужно заполнить с клавиатуры, не?
Я не буду говорить что кажется мне, однако чтобы решить задачу массив не нужен. А ввод раз не указан, то кому как удобно, хочешь из файла, хочешь с клавиатуры.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2011, 04:12

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

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков,...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
11.57. Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков,...

Известны данные о количестве осадков, выпавших за каждый месяц года, Найти общее число осадков, выпавших в марте, июне, сентябре и декабре.
Известны данные о количестве осадков, выпавших за каждый месяц года, Найти общее число осадков,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

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