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

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

26.01.2014, 15:23. Показов 2411. Ответов 1
Метки нет (Все метки)

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

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

Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2
Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и...

Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива
Задан вектор А={Аn}. Найти среднее арифметическое модулей отрицательных и произведение...

Массив. Найти среднее арифметическое положительных и отрицательных элементов
Помогите пожалуйста с 2 прогами .Для введённого с клавиатуры массива найти среднее арифметическое...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32835 / 21172 / 8148
Регистрация: 22.10.2011
Сообщений: 36,431
Записей в блоге: 8
26.01.2014, 17:52 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

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
var  
  i, s, count: integer;
  aver : integer;
  a: array[1 .. 20] of integer;
  
begin
  randomize;
  for i := 1 to 20 do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4);
  end;
  writeln;
  
  for i := 1 to 20 do
    if a[i] > 0 then s := s + a[i]
    else 
    begin
      inc(count);
      aver := aver + a[i];
    end;
  
  writeln('Сумма положительных элементов = ', s);
  if count > 0 then
    writeln('Среднее арифметическое отрицательных = ', aver/count:0:3)
  else
    writeln('В массиве нет отрицательных элементов');
  readln;
end.
1
26.01.2014, 17:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2014, 17:52
Помогаю со студенческими работами здесь

Найти среднее арифметическое отрицательных элементов матрицы и количество положительных элементов
1) В матрице d (5, 7) найти среднее арифметическое отрицательных элементов и количество...

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива
Всем приветик) Извините что так много задачек, но поймите сложновато мне с программированием(( ...

Найти среднее арифметическое отрицательных элементов массива
Вывести на печать среднее арифметическое отрицательных элементов массива A=(5;-2.3;-6.9;-1.1;2;6.6).

Найти количество положительных элементов, их сумму и среднее арифметическое элементов матрицы
Задана квадратная матрица NxN,элементы которые вычисляются в виде a=sin(sqr(i)-sqr(j)/n).Найьт...


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

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

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