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

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

13.04.2014, 11:59. Показов 1389. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан одномерный массив размером М. Подсчитать сумму положительных и среднее арифметическое отрицательных элементов. Ввод данных осуществлять с клавиатуры, вывод исходного массива и результатов – на экран
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2014, 11:59
Ответы с готовыми решениями:

Для одномерного массива Х(N) вычислить сумму квадратов положительных элементов и среднее арифметическое отрицательных элементов.
помогите плиз. вот задание 1. Для одномерного массива Х(N) вычислить сумму квадратов положительных...

Найти сумму положительных элементов массива и среднее арифметическое отрицательных
Дан массив А(20), найти сумму положительных элементов массива и среднее арифметическое...

Найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов массива.
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое положительных и среднее...

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

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
14.04.2014, 03:24 2
Лучший ответ Сообщение было отмечено RazorIlya19 как решение

Решение

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
59
60
61
62
63
64
65
66
program Project1;
 
uses
  Crt;
 
type
  mass = array of Integer;
 
var
  vector : mass;
 
procedure Input_mass(var vector : mass);
var
  i, m : Byte;
begin
  Write('Input M: '); Readln(m);
  SetLength(vector, m);
  for i := 0 to m-1 do
  begin
    Write('Input mass[', i+1, ']= '); Readln(vector[i]);
  end;
end;
 
procedure Output_mass(vector : mass);
var
  i : Byte;
begin
  for i := 0 to Length(vector)-1 do
    Writeln('mass[', i+1, ']= ', vector[i]);
end;
 
function Summ(vector : mass): Word;
var
  i : Byte;
  sum : Word;
begin
  sum := 0;
  for i := 0 to Length(vector)-1 do
    if (vector[i] > 0) then
      sum := sum + vector[i];
  Summ := sum;
end;
 
function Average(vector : mass): Single;
var
  count, i : Byte;
  aver : Integer;
begin
  count := 0; aver := 0;
  for i := 0 to Length(vector)-1 do
    if (vector[i] < 0) then
    begin
      Inc(count); aver := aver + vector[i];
    end;
  Average := aver / count;
end;
 
begin
  ClrScr;
  Input_mass(vector);
  ClrScr;
  Writeln('Sum of positive: ', Summ(vector));
  Output_mass(vector);
  Writeln('Average of negative: ', Average(vector):7:3);
  readln;
end.
1
14.04.2014, 03:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2014, 03:24
Помогаю со студенческими работами здесь

Подсчитать сумму положительных и среднее арифметическое отрицательных элементов массива
Разработать программы по формированию и обработке одномерного и двумерного массивов. Полученные...

Найти среднее арифметическое отрицательных чисел и среднее геометрическое положительных элементов массива
Дан массив Х(20) с целыми числами диапазон (-25 +25) Найти среднее арифметическое отрицательных...

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

Найти сумму отрицательных и среднее арифметическое положительных элементов
В массиве С(14) найти сумму отрицательных и среднее арифметическое положительных элементов. В...


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

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

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