В массиве заменить элементы с чётными номерами суммой нечётных элементов

@Futbolist12 · Регистрация: 10.02.2010

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

Дан массив A(m), где m задаётся с клавиатуры. Массив заполняется случайными числами. Диапозон n задаётся с клавиатуры. В данном массиве заменить элементы с чётными номерами суммой нечётных элементов.

@softmob · 01.02.2011, 16:46

PureBasic

CLS
RANDOMIZE TIMER
INPUT "vvedite m"; m
DIM a(m)
INPUT "vvedite nachala diapazona"; a
INPUT "vvedite konec diapazona"; b
IF a > b THEN SWAP a, b
FOR i = 1 TO m
    a(i) = INT(RND * ABS(b - a + 1) + a)
NEXT
FOR i = 1 TO m
    PRINT a(i);
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO m
    IF (a(i) AND 1) = 1 THEN s = s + a(i)
NEXT
FOR i = 1 TO m
    IF (i AND 1) = 0 THEN a(i) = s
NEXT
FOR i = 1 TO m
    PRINT a(i);
NEXT

@Futbolist12 4 / 4 / 0 Регистрация: 10.02.2010 Сообщений: 87
		1
	В массиве заменить элементы с чётными номерами суммой нечётных элементов 01.02.2011, 14:30. Показов 1171. Ответов 1 Метки нет (Все метки) Дан массив A(m), где m задаётся с клавиатуры. Массив заполняется случайными числами. Диапозон n задаётся с клавиатуры. В данном массиве заменить элементы с чётными номерами суммой нечётных элементов. 0

Опции темы

В массиве заменить элементы с чётными номерами суммой нечётных элементов

Решение