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

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах

13.10.2014, 23:04. Показов 1723. Ответов 2
Метки нет (Все метки)

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить количество чисел, небольших заданного F. Надо в Паскале
Заранее Спасибо
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2014, 23:04
Ответы с готовыми решениями:

Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X
Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел,...

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах , и подсчитать...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать...

2
Супер-модератор
6109 / 2848 / 1299
Регистрация: 04.03.2013
Сообщений: 5,738
Записей в блоге: 1
14.10.2014, 06:59 2
Лучший ответ Сообщение было отмечено Anti как решение

Решение

Pascal
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
30
31
32
33
34
const
  n = 15;
var
  a : array [1..n] of integer;
  i, d, f, k1, k2 : integer;
  s : real;
begin
  k1 := 0; k2 := 0;
  s := 0;
  writeln('исходный массив:');
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:4)
  end;
  writeln;
  write('введите D: ');
  readln(d);
  writeln('введите F: ');
  readln(f);
  for i := 1 to n do
  begin
    if (a[i] > d) and (odd(i)) then
    begin
      s := s + a[i];
      inc(k2)
    end;
    if a[i] <= f then inc(k1)
  end;
  writeln('среднее арифметическое чисел, больших D и стоящих на нечетных местах: ', (s/k2):0:4);
  writeln('количество чисел, небольших заданного F: ', k1);
  readln
end.
1
0 / 0 / 0
Регистрация: 08.10.2014
Сообщений: 32
14.10.2014, 20:27  [ТС] 3
Большое спасибо!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2014, 20:27
Помогаю со студенческими работами здесь

Найти среднее арифметическое положительных чисел матрицы, стоящих на нечётных местах
Дан одномерный массив A(n). Найти среднее арифметическое положительных чисел, стоящих на нечётных...

Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших N
Есть задача &quot;Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и...

Вычислить среднее арифметическое чисел, не больших А и стоящих на четных местах
Вычислить среднее арифметическое чисел, небольших А и стоящих на четных местах; подсчитать...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить ...

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

Найти среднее арифметическое элементов, стоящих на нечетных местах
Помогите можалуйста :( написать программу на qbasic и блок схему: Найти среднее арифметическое...


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

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

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