Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
gridass
0 / 0 / 0
Регистрация: 14.10.2014
Сообщений: 33
#1

Найти среднее арифметическое чисел

26.11.2014, 23:53. Просмотров 956. Ответов 1
Метки нет (Все метки)

5.
1)Вычислить значения функции y=sin (3X + p/5) для X, изменяющегося от 2 до 15 с шагом 3.
2)Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2014, 23:53
Ответы с готовыми решениями:

Найти среднее арифметическое: положительных чисел / неотрицательных чисел / чисел, кратных 5
В целочисленном массиве 20 элементов из диапазона (-1000;1000).Найти среднее...

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

В массиве из 15 двухзначных случайных чисел найти среднее арифметическое чисел, кратных 3
4)В массиве из 15 двухзначных случайных чисел найти среднее арифметическое...

Найти среднее арифметическое чисел с промежутка [A, B], и количество неположительных чисел на местах кратных 3
Осуществить ввод и вывод исходного одномерного массива; выполнить необходимые...

Найти среднее арифметическое положительных чисел среди данных целых чисел, количество которых N
Используя оператор цикла For, найти среднее арифметическое положительных чисел...

1
sobakabobik
41 / 41 / 51
Регистрация: 04.01.2013
Сообщений: 105
27.11.2014, 00:37 #2
Лучший ответ Сообщение было отмечено gridass как решение

Решение

Не на чем проверить, но должно работать
1.

Pascal
1
2
3
4
5
6
7
8
const nmax=20;
var
    x: real;
begin
    x := 2;
    while x <= 15 do
        writeln(sin(3*x + pi/5));
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
    i, sum, temp: integer;
begin
    sum := 0;
    for i := 0 to 9 do 
    begin
        readln(temp);
        sum := sum + temp;
    end;
    writeln(sum / 10);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2014, 00:37

Вводится не менее 8 чисел. Конец ввода - 0. Найти среднее арифметическое всех чисел больших 38
Вводится не менее 8 чисел. Конец ввода - 0. Найти среднее арифметическое всех...

Найти среднее арифметическое всех чисел.
Ввести N различных чисел. Найти среднее арифметическое всех чисел.

Найти среднее арифметическое всех чисел
Ввести N различных чисел. Найти среднее арифметическое всех чисел. Составить...


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

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

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