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

27.10.2011, 21:18. **Просмотров** 1053. **Ответов** 3

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

@Quiet Snow · 27.10.2011, 21:31

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

Добавлено через 10 минут
Заполните сами(там где 0 - осадков нет и это значение не считаем)

PureBasic

 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!"

@AciD · 29.10.2011, 10:13

Мне кажется массив нужно заполнить с клавиатуры, не? Ну так на всякий-

PureBasic

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

@Quiet Snow · 30.10.2011, 04:12

Мне кажется массив нужно заполнить с клавиатуры, не?

Я не буду говорить что кажется мне, однако чтобы решить задачу массив не нужен. А ввод раз не указан, то кому как удобно, хочешь из файла, хочешь с клавиатуры.

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

Решение

Решение

jiyji
		1
	Определить среднее количество осадков, выпавших в дни, когда шел дождь 27.10.2011, 21:18. Просмотров 1053. Ответов 3 Метки нет (Все метки) В массиве кол-во осадков выпавших за каждый день августа. Определить среднее количество осадков , выпавших в дни , когда шел дождь. Помогите пожалуйста )

@Quiet Snow 4794 / 1465 / 392 Регистрация: 25.04.2010 Сообщений: 4,090 Записей в блоге: 1
	30.10.2011, 04:12	4
	Мне кажется массив нужно заполнить с клавиатуры, не? Я не буду говорить что кажется мне, однако чтобы решить задачу массив не нужен. А ввод раз не указан, то кому как удобно, хочешь из файла, хочешь с клавиатуры. 0

Опции темы