Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Mulrez
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 5
1

Среднее арифметическое элементов массива

15.11.2010, 19:58. Просмотров 488. Ответов 6
Метки нет (Все метки)

Найти среднее арифметическое элементов А(а1, а2,...,а10), предшествующих первому отрицательному элементу а[i].
После того как заполнил массив, не хочет даже сумму считать, помоги пожалуйста. Желательно полностью тогда код.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2010, 19:58
Ответы с готовыми решениями:

Сформировать новый массив из неотрицательных элементов массива В, найти среднее арифметическое элементов нового массива
всем здарсте ребят, сижу на зачете... такая задачка - задан массив В(20)....

Массив B из элементов массива A, которые превышают среднее арифметическое значение элементов массива A
Дан одномерный массив вещественных чисел A(n), где n<= 50. Составить программу,...

Подсчитать число элементов массива А[n], превосходящих среднее арифметическое элементов этого массива.
2 задача. подсчитать число строк массива A, в которых имеется два нулевых...

На место наименьшего элемента массива записать среднее арифметическое всех элементов массива
дан массив V(b1, b2, ..., b30). В элемент bi, содержащий наименьшее значение,...

Замена всех отрицательных элементов на среднее арифметическое значение элементов массива
Ввести двумерный массив А(N,N).Составить программу замены всех отрицатель-ных...

6
кот Бегемот
Платежеспособный зверь
8494 / 3930 / 1533
Регистрация: 28.10.2009
Сообщений: 10,203
15.11.2010, 20:56 2
Цитата Сообщение от Mulrez Посмотреть сообщение
Найти среднее арифметическое элементов А(а1, а2,...,а10), предшествующих первому отрицательному элементу а[i].
После того как заполнил массив, не хочет даже сумму считать, помоги пожалуйста. Желательно полностью тогда код.
Pascal
1
2
3
4
5
6
for i:=1 to 10 do
if a[i]<0 then f=1 else if f=0 then begin
inc[k];
s:=s+a[i];
end;
writeln (s/k);
1
Mulrez
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 5
16.11.2010, 05:50  [ТС] 3
Спасибо большое! Всё работает! Вот только возник вопрос: я делал всё то же самое, только не делал второе условие и не приравнивал f к единице и нулю соответственно, зачем это вообще делается?
0
Puporev
Модератор
55097 / 42347 / 29248
Регистрация: 18.05.2008
Сообщений: 100,064
16.11.2010, 06:37 4
Это делается затем что пока f=0(по умолчанию) то нет еще отрицательного и мы считаем числа и их сумму. Как попалось отрицательное, прекращаем, вычисляем среднее и выводим результат.

Добавлено через 9 минут
Я бы еще предусмотрел всякие нестандартные ситуации.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if a[1]<0 then write('До первого отрицательного нет элементов')
else
 begin
  f:=0;
  for i:=1 to 10 do
  if a[i]<0 then f:=1
  else if f=0 then
   begin
    inc(k);
    s:=s+a[i];
   end;
  if f=0 then writeln('Отрицательных в массиве нет, вычислено среднее всего массива')
  else write('Среднее до первого отрицательного=');
  writeln (s/k:0:2);
 end;
0
Mulrez
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 5
17.11.2010, 09:17  [ТС] 5
Спасибо за помощь!

Добавлено через 12 часов 49 минут
Кстати, а счёт нестандартных ситуаций, там я тоже делал через условие, потому что когда рандомом заполняешь, частенько выпадает что первое отрицательное значение идёт. Ну а когда тупо ввод с клавиатуры делаешь, и условие ненужно!
0
Puporev
Модератор
55097 / 42347 / 29248
Регистрация: 18.05.2008
Сообщений: 100,064
17.11.2010, 09:24 6
Цитата Сообщение от Mulrez Посмотреть сообщение
Ну а когда тупо ввод с клавиатуры делаешь, и условие ненужно!
Вот если тупо вводишь, то тем более должна быть защита от дурака, рандом иногда умнее таких юзеров как ты...
0
Mulrez
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 5
17.11.2010, 09:35  [ТС] 7
ммм...за комплимент конечно отдельное спасибо, но я не знаю каким нужно быть человеком, чтобы в такой задаче, первым вводить отрицательный элемент! Хотя, думаю, что, в принципе, ты прав.
0
17.11.2010, 09:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2010, 09:35

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

Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно
Дан массив размера N и целые числа K и L(1&lt;K&lt;=L&lt;=N). Найти среднее...

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


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

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

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