Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Juliy
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 3
1

Вычислить среднее арифмитическое значение нечетных элементов массива, кратных 7

03.04.2011, 18:59. Просмотров 1001. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста с решением задачи:
Разработать блок-схему и записать программу на языке QBASIC:
а) Дан массив чисел Q(1051). Вычислить среднее арифмитическое значение нечетных элементов кратных 7, расположенных после первого встретившегося такого элемента и до конца массива.
в) Дана матрица С(X,Y). Найти в каждом столбце максимальный элемент и записать его в новую последовательность А(Y).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2011, 18:59
Ответы с готовыми решениями:

Вычислить среднее арифметическое значение нечетных элементов матрицы, кратных семи
помогите 2 задачи решить: 1) Дана числовая последовательность Q(120). Вычислить среднее...

Вычислить среднее арифметическое значение элементов массива М
дан массив М(х) вычеслители среднее арифметическое значение элементов массива М надо составить...

Вычислить среднее арифметическое значение положительных элементов массива
Обработать на компьютере одномерный массив B(N): вычислить среднее арифметическое значение...

В массиве найти произведение ненулевых элементов и среднее арифмитическое элементов главной диагонали
1)В массиве(4,4) найти произведение ненулевых элементов и среднее арифмитическое элементов главной...

Найти среднее арифмитическое наибольшего и наименьшего значения её элементов.
Дана действительная матрица размера m x n. Найти среднее арифмитическое наибольшего и наименьшего...

2
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
03.04.2011, 19:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

а)
PureBasic
1
2
3
4
5
6
7
8
9
CLS
DIM q(1051)
FOR i = 1 TO 1051
    q(i) = FIX(100 * RND(1) - 25)
NEXT
FOR i = 8 TO 1051
    IF i / 2 <> INT(i / 2) AND i / 7 = INT(i / 7) THEN k = k + 1: s = s + q(i)
NEXT
PRINT "sred. znach.:"; s / k
Добавлено через 16 минут
в)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
RANDOMIZE TIMER
INPUT "strok-"; x
INPUT "stolbcov-"; y
DIM c(x, y)
DIM a(y)
PRINT
PRINT "massiv C:"
FOR i = 1 TO x
    FOR j = 1 TO y
        c(i, j) = INT(100 * RND(1) - 25)
        PRINT c(i, j);
NEXT: PRINT: NEXT
FOR i = 2 TO x
    FOR j = 1 TO y
        a(j) = c(1, j)
        IF c(i, j) > a(j) THEN a(j) = c(i, j)
NEXT: NEXT
PRINT: PRINT "massiv A:"
FOR i = 1 TO y
    PRINT a(i);
NEXT
2
Juliy
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 3
04.04.2011, 10:57  [ТС] 3
Спасибо, Вы мне очень помогли.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2011, 10:57

Вычислить среднее арифметическое и среднее геометрическое положительных элементов массива
В данном массиве А{n} вычислить среднее арифметическое и среднее геометрическое положительных...

Найти среднее арифметическое нечетных элементов массива с нечетными индексами
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое...

Вычислить произведение элементов массива, кратных 5
народ такая задача: вычислить произведения элементов массива A1, A2, ..., A70, кратных 5. зы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru