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

@kIKINESS · Регистрация: 20.12.2016

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

Дан массив из 15 элементов. Найти среднее арифметическое каждых четырех элементов и определить минимальное. Результат распечатать в виде: Массив: MIN=

По информатике задали написать программу в QBASIC массивы, скоро сдавать, а я не поняла эту тему. Помогите!
Кто чем сможет

echs · 27.12.2016, 16:22

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
N = 15
 
DIM x(1 TO N) AS INTEGER
 
FOR i = 1 TO N
   x(i) = 20 * RND - 10
   PRINT USING "####"; x(i);
NEXT: PRINT : PRINT
 
min = (x(1) + x(2) + x(3) + x(4)) / 4
 
FOR i = 1 TO N - 3
FOR j = i + 1 TO N - 2
FOR k = j + 1 TO N - 1
FOR l = k + 1 TO N
   SRA = (x(i) + x(j) + x(k) + x(l)) / 4
   IF SRA < min THEN min = SRA
NEXT l, k, j, i
PRINT "Massiv MIN ="; min
END

@kIKINESS 0 / 0 / 0 Регистрация: 20.12.2016 Сообщений: 4
		1
	Найти среднее арифметическое каждых четырех элементов массива и определить минимальное 20.12.2016, 23:16. Показов 1620. Ответов 1 Метки нет (Все метки) Дан массив из 15 элементов. Найти среднее арифметическое каждых четырех элементов и определить минимальное. Результат распечатать в виде: Массив: MIN= По информатике задали написать программу в QBASIC массивы, скоро сдавать, а я не поняла эту тему. Помогите! Кто чем сможет 0

Опции темы

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

Решение