Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
minowa
0 / 0 / 0
Регистрация: 13.06.2013
Сообщений: 27
#1

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

19.06.2013, 15:44. Просмотров 925. Ответов 1
Метки нет (Все метки)

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

x=(сред арифм +)
y=(сред арифм -)

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

Нахождение среднего арифметического массива В размерностью 10 элементов
Задача 1 написать программу которое находит среднего арифметического массива В размерностью 10...

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

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

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

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

1
Kordn
156 / 135 / 106
Регистрация: 18.05.2013
Сообщений: 289
20.06.2013, 01:22 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a: array[1..100] of integer;
  sumpl, summin, pl, min: integer;
 
begin
  writeln('Массив:');
  for var i := 1 to 100 do 
  begin
    a[i] := random(-100, 100);
    if a[i] > 0 then begin sumpl += a[i]; inc(pl); end
    else if a[i] < 0 then begin summin += a[i]; inc(min); end;
    write(a[i], ' ');
  end;
  writeln(#13#10, 'Сумма положительных элементов ', sumpl, #13#10, 'Сумма отрицательных элементов ', summin, #13#10, 'Ср. ар. положительных элементов ', sumpl / pl, #13#10, 'Ср.Ар. отрицательных элементов ', summin / min);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2013, 01:22

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

Процедура поиска модуля суммы отрицательных элементов матрицы и суммы положительных
Написать две процедуры 1) поиск модуля суммы отрицательных элементов матрицы 2) поиск суммы...

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


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

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

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