Найти сумму элементов одномерного массива

@Лена! · Регистрация: 26.12.2010

Студворк — интернет-сервис помощи студентам

Найти сумму элементов одномерного массива размером 4. Разделить каждый элемент исходного массива на полученное значение.
результат получить в том же массиве.
напечатать в одной строке.

@Lyohich84 · 27.12.2010, 08:54

PureBasic

CLS
n=4
DIM a(n)
FOR i=1 TO n
 PRINT "a(";i;")=";
 INPUT a(i)
NEXT i
CLS
PRINT "Ishodniy massiv"
FOR i=1 TO n
 PRINT a(i);
NEXT i
PRINT
s=0
FOR i=1 TO n
 s=s+a(i)
NEXT i
PRINT "Summa=";s
FOR i=1 TO n
 a(i)=a(i)/s
NEXT i
PRINT "Massiv posle preobrazovaniy"
FOR i=1 TO n
 PRINT a(i);
NEXT i

@Лена! 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 3
		1
	Найти сумму элементов одномерного массива 27.12.2010, 01:18. Показов 1272. Ответов 1 Метки нет (Все метки) Найти сумму элементов одномерного массива размером 4. Разделить каждый элемент исходного массива на полученное значение. результат получить в том же массиве. напечатать в одной строке. 0

Опции темы

Найти сумму элементов одномерного массива

Решение