Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 35
1

Вычислить количество и произведение элементов меньших среднего арифметического первых 2 элементов массива

10.04.2015, 11:43. Просмотров 1409. Ответов 1
Метки нет (Все метки)

помогите решить задачки,плиииз
дан одномерный массив b1,b2,....,bn.Вычислить колличество и произведение элементов меньших среднего арифметического первых 2 элементов этого массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2015, 11:43
Ответы с готовыми решениями:

Найти количество элементов, меньших среднего арифметического всех элементов матрицы
Дана матрица А размера NxM. Найти количество элементов, меньших среднего арифметического всех...

Массив. Найти количество элементов, меньших среднего арифметического положительных элементов этого массива
Всем привет! Пмогите пожалуйста написать программу! Массив a(30) сформирован случайным образом....

в массиве . найти произведение ненулевых элементов, количество элементов, превышающих значение среднего арифметического элементов массива
В массиве Х(N) найти произведение ненулевых элементов, количество элементов, превышающих значение...

в массиве . найти произведение нулевых элементов, количество элементов, превышающих значение среднего арифметического элементов массива
В массиве Х(N) найти произведение нулевых элементов, количество элементов, превышающих значение...

1
223 / 222 / 112
Регистрация: 20.10.2013
Сообщений: 808
10.04.2015, 17:37 2
Лучший ответ Сообщение было отмечено Аниточка как решение

Решение

Аниточка, вообще - 1 задача - 1 тема, но ладно, алгоритм следующий:
Delphi
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
35
36
37
38
39
40
41
program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  SysUtils;
 
var
  i, q, N: Integer;
  b: array of Integer;
  S, Sa: Double;
 
begin
  repeat
    Write('Длина массива N=');
    ReadLn(N);
  until (N > 2);
  q := 0;
  S := 1;
  Sa := 0;
  SetLength(b, N);
  for i := 0 to N - 1 do
  begin
    ReadLn(b[i]);
    if i in [0 .. 1] then
      Sa := Sa + b[i];
  end;
  Sa := Sa / 2;
  for i := 0 to N - 1 do
    if b[i] < Sa then
    begin
      Inc(q);
      S := S * b[i];
    end;
  WriteLn(q);
  WriteLn(S);
  ReadLn;
  ReadLn;
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2015, 17:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить количество элементов массива, меньших среднего арифметического значения
В массиве, состоящем из n элементов, определить количество элементов меньших среднего...

Подсчитать количество элементов файла f, меньших среднего арифметического всех элементов
Пусть type reals = file of real; Подсчитать количество элементов файла f, меньших среднего...

В каждой строке матрицы найти количество элементов, меньших среднего арифметического ее элементов
Дана матрица. В каждой строке найти количество элементов, меньших среднего арифметического всех...

Подсчитать количество элементов файла f, меньших среднего арифметического всех его элементов
type reals = file of real; Описать функцию less(f) от непустого файла f типу reals, что...


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

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

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