Найти среднее арифметическое четных элементов массива

13.02.2012, 17:52. **Показов** 3137. **Ответов** 4

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

Помогите!
Написать программу формирования одномерного массива размера М.
Найти среднее арифметическое четных элементов.
Получить новый массив путем умножения всех элементов на наименьший элемент.

@Фаер · 13.02.2012, 18:25

QBasic/QuickBASIC

CLS: kol=1
INPUT "m=";m
PRINT "Input elements:"
INPUT A(1)
sum=sum+A(1)
min=A(1)
FOR i=2 TO m 
  INPUT A(i)
  IF A(i) MOD 2=0 THEN sum=sum+A(i): kol=kol+1
  IF A(i)<min THEN min=A(i)
NEXT
color 4
FOR i=1 TO m 
  PRINT A(i)*min
NEXT
PRINT "min:";min
PRINT "Sred arif:";sum/kol
END

@Evona · 15.01.2015, 16:26

Дан массив А(10). Вычислить среднее значение элементов массива, которые являются четными числами.
Предусмотреть в алгоритме ввод значений элементов массива с клавиатуры или их генерацию с помощью функции RND. Исходный массив должен быть выведен на экран.
Я увидела про работу с одномерными массивами ниже,

QBasic/QuickBASIC

INPUT "vvedite kolichestvo elementov N ",n
DIM a(n)
FOR i=1 TO N
INPUT "vvedite element ",a(i)
NEXT
PRINT "massiv"
FOR i=1 TO N
PRINT a(i);
NEXT

Хотела уточнить, правильно ли я сделала, и как тогда будет с RND, если его использовать?
Заранее спасибо.

QBasic/QuickBASIC

CLS
DIM a(10)
DATA -12, 2, -3, -6, 3, 5, -5, 8, -7, 3
PRINT "Massiv  a"
FOR i = 1 TO 10
READ a(i)
PRINT a(i)
NEXT i
PRINT
s = 0
n = 0
FOR i = 1 TO 10
IF a(i) MOD 2 = 0 THEN s = s + a(i): n = n + 1
NEXT i
sr = s / n
PRINT "Srednee znach chetnih elementov massiva = "; sr
END

@~~Апострофф~~ · 15.01.2015, 16:52

Сообщение от Evona

как тогда будет с RND

вместо

Сообщение от Evona

READ a(i)

записать

QBasic/QuickBASIC

1	a(i)=INT(RND*21-10)

, а

Сообщение от Evona

DATA -12, 2, -3, -6, 3, 5, -5, 8, -7, 3

можно убрать.

Добавлено через 1 минуту

Не по теме:

А по правилам для своих вопросов следует создавать свои темы.

@SmokeStyle · 18.01.2016, 07:57

Помогите!
Написать программу формирования одномерного массива размера М.
Найти среднее арифметическое четных элементов.
Получить новый массив путем умножения всех элементов на наименьший элемент.

Помогите нарисовать блок схему к этой задаче

Найти среднее арифметическое четных элементов массива

Решение

Решение

dimma47
		1
	Найти среднее арифметическое четных элементов массива 13.02.2012, 17:52. Показов 3137. Ответов 4 Метки нет (Все метки) Помогите! Написать программу формирования одномерного массива размера М. Найти среднее арифметическое четных элементов. Получить новый массив путем умножения всех элементов на наименьший элемент.

@SmokeStyle 0 / 0 / 0 Регистрация: 02.11.2013 Сообщений: 3
	18.01.2016, 07:57	5
	Помогите! Написать программу формирования одномерного массива размера М. Найти среднее арифметическое четных элементов. Получить новый массив путем умножения всех элементов на наименьший элемент. Помогите нарисовать блок схему к этой задаче 0

Опции темы