Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 15.12.2016
Сообщений: 20
1

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

29.03.2017, 10:39. Просмотров 1663. Ответов 2


Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому положительному элементу
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2017, 10:39
Ответы с готовыми решениями:

Найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу
Дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500...

в массиве х(10) найти среднее арифметическое предшествующих первому положительному элементу. только массив выводитБ больше ничё не делает
в массиве х(10) найти среднее арифметическое предшествующих первому положительному элементу. ...

Найти среднее арифметическое элементов предшествующих первому отрицательному элементу
найти среднее арифмитическое элементов предшествующих первому отрицательному элементу. чёт у меня...

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...

2
1742 / 1335 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
29.03.2017, 10:51 2
Лучший ответ Сообщение было отмечено Khizhnjak как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=10;
begin
  var x:=ArrRandom(n,-10,10); var ave:=0.0; var k:=0; var b:=true;
  x.Println;
  for var i:=0 to n-1 do
    if x[i]>0 then b:=false else 
      if b then begin
        ave+=x[i]; k+=1;
      end;
  if ave<0 then ave/=k;
  write('Среднее арифметическое: ',ave:0:2);
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30856 / 20179 / 7873
Регистрация: 22.10.2011
Сообщений: 35,034
Записей в блоге: 6
29.03.2017, 11:38 3
Pascal
1
2
3
4
5
begin
  var a := ArrRandom(10, -20, 20).Println(',').ToArray;
  var t := a.TakeWhile(v -> v <= 0).ToArray;
  if t.Length > 0 then writeln(t.Average) else writeln('Перед первым положительным нет элементов');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2017, 11:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

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

Сумма 1-го элемента массива и элементов массива, начиная с четвёртого, которые меньше или равны первому элементу
Что здесь высчитывается и какой ответ? var k,m: integer; dat: array of integer; begin dat :=...

Написать алгоритм вычисления суммы положительных элементов, предшествующих максимальному элементу массива
Привет, такая задача, выручите плиз: Задан массив, содержащий 25 целых чисел. Написать алгоритм...


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

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

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