Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
vitaliy1111
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 58
#1

Найти среднее значение четных чисел из данных n чисел

08.10.2012, 00:43. Просмотров 1000. Ответов 3
Метки нет (Все метки)

Найти среднее значение четных чисел из данных n чисел. Вводятся n и числа.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 00:43
Ответы с готовыми решениями:

Определить количество четных чисел в массиве Х и их среднее арифметическое значение
Задан массив значений аргумента Х=(1.2;1.8;-4;-1.5;-0.6;0.2;0.5;14;26;-8.4). Определить количество...

Из n произвольных чисел найти кол-во отрицательных чисел и среднее значение четных чисел
Добрый день, форумчане помогите решить, сделать программу по Паскалю. Из n произвольных чисел...

Найти наименьшее из четных чисел и среднее значение у положительных
Bвecти пocлeдoвaтeльнo n прoизвoльныx цeлыx чиceл. Haйти нaимeньшee из чeтныx чиceл и cрeднee...

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел
Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее...

Найти среднее арифметическое всех, идущих подряд в начале последовательности четных чисел
Дана последовательность из n вещественных чисел. первое число в последовательности четное. Найти...

3
vitaliy1111
0 / 0 / 0
Регистрация: 30.05.2012
Сообщений: 58
08.10.2012, 00:56  [ТС] #2
FreePascal
0
VictorDax
7 / 7 / 4
Регистрация: 08.10.2012
Сообщений: 93
08.10.2012, 00:56 #3
Цитата Сообщение от vitaliy1111 Посмотреть сообщение
Найти среднее значение четных чисел из данных n чисел. Вводятся n и числа.
Вроде работает

C
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
#include <stdio.h>
 
 
int main(int argc, char *argv[])
{
    printf("N = ");
    int n;
    scanf("%d", &n);
 
    int A[n];
    printf("\nInput %d numbers\n", n);
    for(int i=0; i<n; i++){
        scanf("%d", &A[i]);
    }   
 
    int k = 0;
    float B;
    for(int i=0; i<n; i++){
        if (A[i]%2 == 0) {
            B = B + A[i];
            k++;
        }
    }   
    B = B/k;
 
    printf("\nAnswer: %f\n", B);
 
    return 0;
}
Блин...перепутал язык
0
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.10.2012, 01:02 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var i,n,c,k,sum: integer;
 
begin
write('n='); readln(n);
for i:=1 to n do
    begin
    write('-->'); readln(c);
    if c mod 2=0 then
       begin
       inc(k);
       inc(sum,c);
       end;
    end;
if k=0 then writeln('Нет четных чисел среди введенных')
   else writeln('Среднее арифметическое четных=',sum/k:0:2);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 01:02

Из данных множеств сформировать соответственно подмножества чисел, кратных 3, и четных чисел
Заданы два множества M и N, которые состоят из 10 целых чисел из диапазона 100...200. Из данных...

Найти среднее арифметическое значение простых чисел в массиве.
Помогите пожалуйста с задачами :) Задачи на одномерный массив: 1) Дан одномерный массив....

Найти количество чисел, значение которых превышает среднее арифметическое
Найти количество чисел, значение которых превышает среднее арифметическое. Дописать это число в...


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

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

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