PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Задача о раскладке карт помогите пожалуййстаа, нужно написать программу, пусть имеется набор карт, пронумерованных от 1 до 10.Требуется разложить эти карты по двум кучкам так, чтобы в первой кучке сумма стоимостей карт была как можно ближе к 36,а во второй произведение стоимостей карт была как можно меньше 36 https://www.cyberforum.ru/ pascalabc-net/ thread1948678.html	Вычислить произведение элементов массива, расположенных между первым и вторым нулевыми элементами PascalABC.NET Не могу разобраться. Исправьте ошибки. 1. Вычислить произведение элементов массива, расположенных между первым и вторым нулевыми элементами 2. Преобразовать массив таким образом, чтобы элементы, равные 0, располагались после всех остальных. (Использовать 5 подпрограмм) const
PascalABC.NET Последовательность https://www.cyberforum.ru/ pascalabc-net/ thread1948511.html Создавать программу которая изменит последовательность в строку последовательностей или в той же строке. Заранее благодарен.	PascalABC.NET Определить слова с одинаковыми нумерациями первых и последних символов https://www.cyberforum.ru/ pascalabc-net/ thread1948443.html дана строка символов, определить слова с одинаковыми нумерациями первых и последних символов
Сформировать третий массив по заданному условию PascalABC.NET необходимо из данных одной из двух измерений по массиву из основного первого массива и второго массива элементов сформировать третий массив	PascalABC.NET Найти месяц Здравствуйте форумчане,нужна ваша помощь.Дано шаг,количество шагов,и месяц с годом.Найти нужный месяц и его год. i:=4 // шаг r:=6 // количество шагов m:=1 // месяц y:= 2012 // год Извиняюсь за такую косую формулировку =( https://www.cyberforum.ru/ pascalabc-net/ thread1948390.html
PascalABC.NET Найти сумму положительных элементов в строках и присвоить к элементам косвенной диагонали строки https://www.cyberforum.ru/ pascalabc-net/ thread1948341.html Дан Двумерный массив А . Найти сумму положительных элементов в строках и присвоить к элементам косвенной диагонали строки	Убрать из текста слова начинающиеся и закачивающиеся на букву "Я" PascalABC.NET Дан текст, состоящий из слов, разделенных пробелами. Убрать из текста слова начинающиеся и закачивающиеся на букву "Я".
PascalABC.NET Удалить все запятые до первой точки и после первой точки все числа «5» заменить на «+» Дана строка содержащая по крайней мере одну точку между символами. Удалить все запятые до первой точки и после первой точки все числа «5» следует заменить на «+». https://www.cyberforum.ru/ pascalabc-net/ thread1948302.html	PascalABC.NET Найдите самое большое число из расположенных по порядку четных, положительных элементов https://www.cyberforum.ru/ pascalabc-net/ thread1948285.html Дан одномерный массив А (20). Найдите самое большое число из расположенных по порядку четных, (+) положительных элементов.
Найти прямоугольную подматрицу PascalABC.NET Вводится матрица a(m,n) из 0 и 1. Найти в ней прямоугольную подматрицу из одних единиц максимального размера (т.е. с максимальным произведением высоты на длину).	PascalABC.NET В строке символов удалить всё, кроме букв, и перевести буквы в верхний регистр https://www.cyberforum.ru/ pascalabc-net/ thread1948001.html Дана строка символов. Стереть все символы, которые не состоят из букв и все маленькие буквы поменять на одинаковые заглавные буквы.

Hitoku

1755 / 1347 / 1407

Регистрация: 28.10.2016

Сообщений: 4,267

29.03.2017, 10:51

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

29.03.2017, 10:51. Показов 2038. Ответов 2

Метки (Все метки)

Сообщение было отмечено Khizhnjak как решение

Решение

Pascal

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.

Вернуться к обсуждению:
Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива PascalABC.NET

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.03.2017, 10:51

Готовые ответы и решения:

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

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

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

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

	29.03.2017, 10:51

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.03.2017, 10:51

Помогаю со студенческими работами здесь

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

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

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

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

Наверх