Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
LobanovKonstant
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 2
1

Вычислить сумму и количество четных чисел в массиве

12.12.2013, 14:10. Просмотров 967. Ответов 2
Метки нет (Все метки)

Пожалуйста помогите!
Нужно написать программу формирования одномерного массива размера М.
Вычислить сумму и количество четных чисел в массиве.
Заменить все элементы массива, совпадающие с числом А, на число В.
И если можно, хотя бы кратенькие комментарии в программе.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2013, 14:10
Ответы с готовыми решениями:

В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел
Давно не работала с QBasic и уже половину забыла. Нужна помощь::cry: Задача 1:...

Как из последовательности 20 чисел вычислить сумму нечетных чисел и определить количество четных чисел.
Помогите пожалуйста !!!! Из последовательности 20 чисел вычислить сумму...

Подсчитать количество положительных четных чисел, а также сумму чисел
В числовую переменную вводятся целые числа. Количество чисел заранее...

Найти сумму всех нечетных чисел и количество четных чисел
Помогите пожалуйста решить задачи или найти похожие решёные задачи. Буду рад...

Найти количество четных и нечетных чисел в двумерном массиве
Дан двумерный массив n x m элементов. Найти количество четных и нечетных чисел...

2
markiza-inc
480 / 194 / 89
Регистрация: 21.10.2012
Сообщений: 451
13.12.2013, 23:16 2
Лучший ответ Сообщение было отмечено LobanovKonstant как решение

Решение

Посмотрите такой вариант:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
CLS
DO
 INPUT "Введите размерность массива: ", m
LOOP UNTIL m > 0            
PRINT "Исходный массив:"
'Определяем массив
DIM ms(1 TO m) AS INTEGER, s AS INTEGER, k AS INTEGER
s = 0: k = 0
RANDOMIZE (TIMER): PRINT
FOR i = 1 TO m
 'Задаем массив генератором случайных чисел
 ms(i) = SGN(RND - .35) * INT(RND + .92) * RND * 250
 PRINT USING "#######"; ms(i);       'выводим массив на экран
 IF i MOD 10 = 0 THEN PRINT          'по 10 элементов в строке
 IF (ms(i) MOD 2) = 0 THEN           'определяем четность элемента
    s = s + ms(i)                    'суммируем, если четный
    k = k + 1                        'считаем, если четный
 END IF
NEXT i: PRINT
PRINT "В массиве четных чисел = "; k
PRINT "Их сумма = "; s: PRINT
INPUT "Введите число, которое нужно заменить A= ", A
INPUT "Введите число, которым нужно заменить B= ", B
k = 0
PRINT : PRINT "Результирующий массив:": PRINT
FOR i = 1 TO m
    IF ms(i) = A THEN
       ms(i) = B                      'заменяем, если есть что менять
       k = k + 1                      'считаем, если заменили
    END IF
    PRINT USING "#######"; ms(i);     'выводим на экран результат
    IF i MOD 10 = 0 THEN PRINT
NEXT i: PRINT
PRINT "Заменено элементов: "; k
1
LobanovKonstant
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 2
15.12.2013, 03:31  [ТС] 3
Большое спасибо!! Без вас бы не справился!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2013, 03:31

Вычислить сумму всех четных положительных чисел числового ряда
Добрый день. Мне нудно выполнить два задания на языке Basic. 1. Вычислить...

Вычислить количество и среднее арифметическое вводимых четных и нечетных чисел
Помогите найти ошибку. Задачка: вычислить количество и среднее арифметическое...

вычислить сумму квадратов всех нечетных чисел в одномерном массиве
вычислить сумму квадратов всех нечетных чисел в одномерном массиве из n...


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

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

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