Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Написать программу удаления комментариев { } из программы на языке Паскаль https://www.cyberforum.ru/ pascalabc/ thread1167747.html Дан массив строк, представляющий собой текст программы на языке Pascal. Требуется написать программу удаления комментариев. Комментарий - последовательность символов, заключенная между "{" и "}"....	Заменить в последовательности символов группу букв "child" группой "children" Pascal ABC Заменить в последовательности символов каждую группу букв "child" группой "children" \Заранее Благодарю. :)
Pascal ABC Найти и вывести все слова текста, в которых есть хотя бы одна цифра Дана последовательность символов. Найти и вывести все слова текста, в которых есть хотя бы одна цифра (в любом месте). \Заранее Благодарю. :) https://www.cyberforum.ru/ pascalabc/ thread1167738.html	Pascal ABC На интервале [n;m] методом половинного деления найти решение квадратного уравнения ax2+bx+c=0 https://www.cyberforum.ru/ pascalabc/ thread1167707.html 3. На интервале методом половинного деления найти решение квадратного уравнения ax2+bx+c=0 c точностью до 0.1. Числа a,b,c,n и m взять из таблицы , a=-2, b=3, c=2. Помогите а то после армии не помню
Определить, совпадают ли компоненты файла f с компонентами файла g Pascal ABC 527. Даны два текстовых файла f и g. Определить, совпадают ли компоненты файла f с компонентами файла g. Если нет, то получить номер первой строки и позицию первого символа в этой строке, в которых...	Pascal ABC Вставить цифру «0» в середину стека, если четное число элементов, а если нечетное, то после среднего элемента https://www.cyberforum.ru/ pascalabc/ thread1167583.html Создать стек из случайных целых чисел. Вставить цифру «0» в середину стека, если четное число элементов, а если нечетное, то после среднего элемента. Добавлено через 21 час 48 минут up! ...
Pascal ABC Справочная служба телефонной компании https://www.cyberforum.ru/ pascalabc/ thread1167557.html Справочная служба телефонной компании.Телефонная компания автоматизировала телефонный справочник.Справочник содержит адрес, фамилию и номер телефонного абонента. Поиск требуемой информации вызывает...	Pascal ABC Заполнить множество числами, определяющими количество единиц в двоичном представлении случайных чисел Входной информацией для программы является n случайных чисел из диапазона 1000 .. 10000. Заполнить множество числами , определяющие количество единиц в двоичном представлении случайных чисел....
Pascal ABC Получить множество всех общих шестнадцатеричных цифр трех натуральных чисел А, В, С https://www.cyberforum.ru/ pascalabc/ thread1167549.html Составить программу, получает множество всех общих шестнадцатеричных цифр трех натуральных чисел А , В , С Помогити девушке ришить задачку вотакую Спасиюо за помощь)))	Pascal ABC На плоскости находятся точки. Найти те точки, образующие замкнутый контур этого множества На плоскости находятся точки . Используя вспомогательную программу найти те точки , образующие замкнутый контур этого множества. Помогити девушке ришить задачку вотакую Спасиюо за помощь))) https://www.cyberforum.ru/ pascalabc/ thread1167542.html
Pascal ABC Разделить самородки на две кучи, наиболее близкие по весу Помогити девушке ришить задачку вотакую В куче лежат Р золотых самородков известной веса. Разделить самородки на две кучи , наиболее близкие по весу. спасибо за помощь)))	Pascal ABC Вычисление среднего арифметического заданных элементов массива оформить в виде подпрограммы https://www.cyberforum.ru/ pascalabc/ thread1167449.html Дано: массив Q13. Вычислить среднее арифметическое элементов, имеющих четные индексы, и среднее арифметическое элементов, имеющих нечетные индексы. Вычисление среднего арифметического заданных...

programax

5 / 5 / 6

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

Сообщений: 23

06.05.2014, 16:29

Дан массив. Определить среднеарифметическое всех чисел меньше заданного - Pascal ABC - Ответ 6135200

06.05.2014, 16:29. Показов 1058. Ответов 2

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

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

Решение

Так?

Pascal

var
  a: array[0..9] of integer;
  i, n, l: integer;
  av: real;
begin
  readln(n);
  for i := 0 to 9 do
  begin
    a[i] := random(25);
    if a[i] < n then
      av := av + a[i];
    l := l + 1;
  end;
  av := av / l;
  writeln('Среднее арифметическое чисел <', n:3, ' =', av:4);
end.

Вернуться к обсуждению:
Дан массив. Определить среднеарифметическое всех чисел меньше заданного Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.05.2014, 16:29

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

Дан двухмерный массив целых чисел. Определить среднее арифметическое всех элементов массива
22 Дан двухмерный массив целых чисел. Определить среднее арифметическое всех элементов массива

Определить количество чисел, которые меньше заданного числа N
№1. Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. program...

Определить сколько чисел, меньше заданного, содержат 2 единицы
Помогите сделать пожалуйста.Надо задать 4-ех значное число и определить сколько чисел меньше...

Определить количество чисел, которые меньше заданного числа N
1 Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. 2 Вычислить ...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.05.2014, 16:29

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

Определить количество чисел, которые меньше заданного числа N
Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.

Определить количество чисел, которые меньше заданного числа N
№1 Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2. №2...

Дан одномерный массив A(n). Вычислить сумму квадратов чисел, не меньших заданного U
Дан одномерный массив A(n). Вычислить сумму квадратов чисел, не меньших заданного U, и стоящих на...

Дан двумерный массив. Определить сумму квадратов элементов заданного столбца
Дан двумерный массив. Определить сумму квадратов элементов заданного столбца.

Наверх