Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Vadim050596
1 / 1 / 0
Регистрация: 03.10.2013
Сообщений: 34
1

Последовательность из N произвольных чисел

18.10.2013, 21:06. Просмотров 346. Ответов 3
Метки нет (Все метки)

Последовательно запрашивая у пользователя N произвольных чисел вычислить количество положительных и отрицательных; для положительных вычислить среднее геометрическое, для остальных - среднее арифметическое.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2013, 21:06
Ответы с готовыми решениями:

последовательность из N произвольных чисел
"Данная последовательность из N произвольных чисел. Определить, есть ли в ней число, равное первом...

Последовательность из N произвольных целых чисел.
Дана последовательность из N произвольных целых чисел. Написать программу, которая определяет,...

Пользователь вводит N произвольных чисел, определить есть ли среди введенных чисел 0.
Пользователь вводит N произвольных чисел, определить есть ли среди введенных чисел 0.

Создать функцию, которая для двух данных чисел определяет в каком числе произвольных чисел больше
создать функцию,которая для двух данных чисел определяет в каком числе произвольных чисел больше

Вычислить произведение N произвольных чисел
Вычислить произведение N произвольных чисел. var i,a,b,m: real; n,f:integer; begin i:=0;...

3
SHSerg
58 / 58 / 25
Регистрация: 01.11.2012
Сообщений: 282
18.10.2013, 22:24 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const  n=10;
var x, pol_cnt, otr_cnt, sum, p: integer;
begin
   sum:=0;
   p:=1;
   pol_cnt:=0;
   otr_cnt:=0;
   for i:=1 to n do
      begin
        read(x);
        if x>0 then
          begin
            p:=p*x;
            pol_cnt:=pol_cnt+1;
          end
        else
          begin
            sum:=sum+x;
            otr_cnt:=otr_cnt+1;
          end;           
      end;
   WriteLn('Среднее геометрическое: ', exp(ln(p)/pol_cnt):4:2 , ', среднее арифметическое: ', sum/otr_cnt);
end.
0
Vadim050596
1 / 1 / 0
Регистрация: 03.10.2013
Сообщений: 34
19.10.2013, 12:58  [ТС] 3
SHSerg не правильно ! пишет неизвестный иденфикатор
0
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
19.10.2013, 14:20 4
Цитата Сообщение от Vadim050596 Посмотреть сообщение
пишет неизвестный иденфикатор
ну так добавьте переменную i в var
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2013, 14:20

Вычислить произведение N произвольных чисел
Вычислить произведение N произвольных чисел (На тему – цикл for). Сумма вычисляется...

Сформировать целочисленный массив из 15 произвольных чисел
Сформировать целочисленный массив из 15 произвольных чисел. Вычислить сумму четных элементов...

Заданы два множества, первое состоит из произвольных десяти чисел в диапазоне от 1 до 100, второе состоит из произвольных десяти чисел в диапазоне от
Заданы два множества, первое состоит из произвольных десяти чисел в диапазоне от 1 до 100, второе...


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

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

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