0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 14
1

Даны числа от 1 до n Найти среднее арифметическое только тех чисел Которые больше числа x вводимого с клавиатуры

17.01.2014, 19:45. Показов 3622. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, нужна ваша помощь!
Даны числа от 1 до n
Найти среднее арифметическое только тех чисел
Которые больше числа x вводимого с клавиатуры
Точнее целые числа a1 a2 a3...... an.
Без использования массива
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2014, 19:45
Ответы с готовыми решениями:

даны вещественные числа b1,b2,...,b9.определить среднее арифметическое тех из них,которые больше 10.
даны вещественные числа b1,b2,...,b9.определить среднее арифметическое тех из них,которые больше...

Даны вещественные числа b1,b2,..b9. Определить среднее арифметическое тех из них которые больше 10
Даны вещественные числа b1,b2,..b9. Определить среднее арифметическое тех из них которые больше 10...

Определить среднее арифметическое тех чисел заданной последовательности, которые больше некоторого числа n
Даны натуральное число 'x' и целые числа 'a1,a2, ..., ax'. Определить среднее арифметическое тех...

Даны 4 вещественных числа. Найти сумму тех чисел, которые больше 5
Решите плиз! Паскаль

4
Почетный модератор
Эксперт HTML/CSSЭксперт PHP
16842 / 6721 / 880
Регистрация: 12.06.2012
Сообщений: 19,967
17.01.2014, 20:04 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program foo;
var
    i, n, count: Integer;
    x, a, sum: Real;
begin
    WriteLn('Введите n');
    ReadLn(n);
    WriteLn('Введите x');
    ReadLn(x);
    sum := 0;
    count := 0;
    for i := 1 to n do begin
        WriteLn('Введите a', i);
        ReadLn(a);
        if a > x then begin
            sum := sum + a;
            Inc(count);
        end;
    end;
    if count = 0 then WriteLn('Чисел больше X не найдено') else WriteLn(sum / count);
end.
1
0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 14
18.01.2014, 12:47  [ТС] 3
С опозданием, но всё же большое спасибо!
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
18.01.2014, 14:16 4
Цитата Сообщение от Adreno200 Посмотреть сообщение
С опозданием
Так вроде через час уже было, надо через минуту?
0
0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 14
18.01.2014, 18:10  [ТС] 5
С опозданием спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2014, 18:10
Помогаю со студенческими работами здесь

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

Найти произведение только тех чисел, которые больше заданного числа m
Составить программу на Паскале, содержащую минимум 4 подпрограммы. Дан одномерный массив,...

Найти произведение только тех чисел, которые больше заданного числа М
Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые...

Найти произведение только тех чисел, которые больше заданного числа m
Составить программу на паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru