Сформировать новую линейную таблицу из значений элементов, кратных 3, исходной таблицы

@masha_@ · Регистрация: 21.12.2010

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

38. Дана линейная таблица В(М). Сформировать новую ли¬нейную таблицу из значений элементов, кратных 3, исход¬ной таблицы. Найти среднее арифметическое значение в новой таблице и выдать его на печать.

37. Дан массив А (К). Сформировать новый массив из положи¬тельных значений элементов массива и найти в новом массиве минимальное значение .

@softmob · 21.12.2010, 20:25

38)

PureBasic

CLS
INPUT "vvedite m"; m
DIM a(m), b(m)
FOR i = 1 TO m
    INPUT "vvedite element"; a(i)
NEXT
FOR i = 1 TO m
    IF a(i) MOD 3 = 0 THEN k = k + 1: b(k) = a(i): sr = sr + a(i)
NEXT
sr = sr / k
PRINT "massiv"
FOR i = 1 TO m
    PRINT a(i);
NEXT
PRINT
PRINT "new massiv"
FOR i = 1 TO k
    PRINT b(i);
NEXT
PRINT
PRINT "sr ="; sr

Добавлено через 5 минут
37)

PureBasic

CLS
INPUT "vvedite k"; k
DIM a(k), b(k)
FOR i = 1 TO k
    INPUT "vvedite element"; a(i)
NEXT
FOR i = 1 TO k
    IF a(i) > 0 THEN m = m + 1: b(m) = a(i)
NEXT
min = b(1)
FOR i = 1 TO m
    IF b(i) < min THEN min = b(i)
NEXT
PRINT "massiv"
FOR i = 1 TO k
    PRINT a(i);
NEXT
PRINT
PRINT "new massiv"
FOR i = 1 TO m
    PRINT b(i);
NEXT
PRINT
PRINT "min ="; min

@masha_@ · 21.12.2010, 20:57 **[ТС]**

Спасибо огромное*

@masha_@ 0 / 0 / 0 Регистрация: 21.12.2010 Сообщений: 6
		1
	Сформировать новую линейную таблицу из значений элементов, кратных 3, исходной таблицы 21.12.2010, 20:06. Показов 1483. Ответов 2 Метки нет (Все метки) 38. Дана линейная таблица В(М). Сформировать новую ли¬нейную таблицу из значений элементов, кратных 3, исход¬ной таблицы. Найти среднее арифметическое значение в новой таблице и выдать его на печать. 37. Дан массив А (К). Сформировать новый массив из положи¬тельных значений элементов массива и найти в новом массиве минимальное значение . 0

@masha_@ 0 / 0 / 0 Регистрация: 21.12.2010 Сообщений: 6
	21.12.2010, 20:57 [ТС]	3
	Спасибо огромное* 0

Сформировать новую линейную таблицу из значений элементов, кратных 3, исходной таблицы

Решение