Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Терив
1 / 1 / 1
Регистрация: 13.11.2013
Сообщений: 17
1

Подсчитать сумму элементов массива, больших среднего арифметического

20.11.2013, 12:05. Просмотров 819. Ответов 2
Метки нет (Все метки)

подсчитать сумму элементов, больших среднего арифметического, в каждом из двух вещественных векторов
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2013, 12:05
Ответы с готовыми решениями:

Подсчитать количество чисел больших среднего арифметического положительных элементов массива
В одномерном массиве А подсчитать количество чисел больших среднего...

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

Найти количество элементов массива, больших среднего арифметического всех ее элементов
Нужно найти количество элементов массива, больших среднего арифметического всех...

Составить программу определения количества элементов массива, больших среднего арифметического всех его элементов.
Составить программу определения количества элементов массива, больших среднего...

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

2
ildwine
Супер-модератор
2989 / 1871 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 1
20.11.2013, 12:25 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
const
  n = 5;
type
  vector = array[1..n] of real;
 
function aver(z : vector) : real;
var i : integer; t : real;
begin
  t := 0;
  for i := 1 to n do 
    t := t + z[i];
  aver := t / n
end;
 
procedure input(var z : vector);
var i : integer;
begin
  for i := 1 to n do
  begin
    write('введите элемент [', i, ']: ');
    readln(z[i])
  end;
end;
 
procedure output(z : vector);
var i : integer;
begin
  for i := 1 to n do
    write(z[i]:6:2);
  writeln
end;
 
 
var
  a, b : vector;
  i : integer;
  s1, s2 : real;
begin
  s1 := 0;
  s2 := 0;
  writeln('ввод вектора A:');  
  input(a);
  writeln('ввод вектора B:');  
  input(b);
  writeln('вектор A:');
  output(a);
  writeln('вектор B:');
  output(b);
  writeln('среднее для вектора A: ', aver(a));
  writeln('среднее для вектора B: ', aver(b));
  for i := 1 to n do
  begin
    if a[i] > aver(a) then s1 := s1 + a[i];
    if b[i] > aver(b) then s2 := s2 + b[i]
  end;
  writeln('сумма элементов вектора A, больших среднего: ', s1);
  writeln('сумма элементов вектора B, больших среднего: ', s2);
end.
1
Терив
1 / 1 / 1
Регистрация: 13.11.2013
Сообщений: 17
20.11.2013, 15:45  [ТС] 3
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2013, 15:45

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

Подсчет количества элементов матрицы, больших среднего арифметического всех ее элементов
Составьте программу подсчета количества элементов двумерного целочисленного...

Определить, сколько элементов в матрице, больших среднего арифметического
Доброго времени суток! Программисты, помогите пожалуйста, нужно решить задачу...


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

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

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