Показать сообщение отдельно
Старый 10.12.2015, 14:52   #9 (permalink)
grelly
падаван
 
Аватар для grelly
 
Регистрация: 23.01.2013
Сообщений: 739
Сказал(а) спасибо: 307
Поблагодарили 27 раз(а) в 3 сообщениях
Репутация: 10792
По умолчанию

Цитата:
REM Вычисление ср. арифм. всех элементов массива
C=0 : k=0
FOR i=1 TO M
INPUT Z(i)
IF Z(i)<0 THEN C=C+Z(i) : k=k+1
NEXT i
S=C/k
проверка что Z(i)<0 не нужна

C=0
FOR i=1 TO M
C=C+Z(i)
NEXT i
S=C/M

если я ничего не путаю
grelly вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070