Даны натуральное число n - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.82/11:

@Adeka 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 12

	Даны натуральное число n 13.12.2010, 19:52. Показов 2200. Ответов 2 Метки нет (Все метки) Даны натуральное число n и вещественные числа а1,а2,....аn.Определить среднее арифметическое вещественных чисел. Спасибо заранее!!! 0

Лучшие ответы (1)

Сообщение: #1198704

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

13.12.2010, 19:52

Ответы с готовыми решениями:

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без факториала: а, а+1, а+2, а+3, ... , а+n. а мне нужно с факториалом....

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an
даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an

Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число отрицательных членов последовательности a1,...,an.
Помогите пожалуйста решить задачу... Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число...

NEZZO

9 / 9 / 3

Регистрация: 22.01.2010

Сообщений: 141

13.12.2010, 20:13

Сообщение было отмечено Adeka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var  n,i:integer;
     A:array [1..100] of real;
     s:real;
begin
writeln('Введите n ->');
read(n);
s:=0;
for i:=1 to n do
begin
write('A[',i,']=');
read(A[i]);
s:=s+A[i];
end;
 
writeln('Средн. арифм. ->', s/n:4:5);
end.

Dekio

Фрилансер

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,373

Записей в блоге: 1

13.12.2010, 20:18

Pascal
1
2
3
for i:=1 to n do
inc(s,arr[i]);
s:=s/n;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

13.12.2010, 20:18

Помогаю со студенческими работами здесь

Даны вещественное число X и натуральное число n. Вычислить сумму первых n слагаемых S=cosx/1+cos2x/4+...+cosnx/n^2
Здравствуйте Нужно написать программу, но я так и не понял как это сделать: Решить задачу согласно варианту тремя способами,...

Даны натуральное число n, символы s[1],...,s[n].
Даны натуральное число n, символы s,...,s. Выяснить имеют- ся ли в последовательности s,...,s такие члены последова- тельности s, s,...

Даны натуральное число n, массив а[n]
Даны натуральное число n, массив а. A. Преобразуйте массив a1, а1 + а2, …, а1 + а2 + … +аn; B. Получите последовательность b1, …, bn,...

Циклы:даны натуральное число х ...
Решите пожалуйста : Даны натуральное число х и целые числа А1,А2, ... ,Ах.Определить среднее арифметическое тех чисел Аi которые больше...

Даны натуральное число n, символы s1, …
Всем доброго времени суток ПОмогите пожалуйста с программой вот она

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Наверх