програмка

16.12.2010, 18:05. **Показов** 1015. **Ответов** 1

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

В программе описан одномерный целочисленных массива A с
индексами от 1 до 10. Значения элементов сначала задаются, а затем меняются.

Бейсик

FOR i=1 TO 10
A(i)=10-i
NEXT i
FOR i=1 TO 8
А(i+2)=A(i)+ А(i+2)
NEXT i

Сколько элементов массива будут четными?
1)1 2)5 3)7 4)9

@softmob · 16.12.2010, 18:18

7 четных элементов

PureBasic

CLS
DIM a(10)
FOR i = 1 TO 10
    a(i) = 10 - i
NEXT
FOR i = 1 TO 8
    a(i + 2) = a(i) + a(i + 2)
NEXT
FOR i = 1 TO 10
    IF (a(i) AND 1) = 0 THEN k = k + 1
NEXT
FOR i = 1 TO 10
    PRINT a(i);
NEXT
PRINT
PRINT "k ="; k

псЫх В кеДаХ
		1
	програмка 16.12.2010, 18:05. Показов 1015. Ответов 1 Метки нет (Все метки) В программе описан одномерный целочисленных массива A с индексами от 1 до 10. Значения элементов сначала задаются, а затем меняются. Бейсик FOR i=1 TO 10 A(i)=10-i NEXT i FOR i=1 TO 8 А(i+2)=A(i)+ А(i+2) NEXT i Сколько элементов массива будут четными? 1)1 2)5 3)7 4)9

	16.12.2010, 18:18

програмка

Решение