: 2
Нахождения среднего арифметического
Разработайте программу для нахождения среднего арифметического элементов массива А, больших числа с, введенного с клавиатуры.
Больших числа с — я не знаю как сделать!
program pr; var a: array [1..100] of integer; i, n, cout, sum: integer; avg: real; begin cout := 0; sum := 0; writeln(‘Введите размер массива’); readln(n); for i := 1 to n do begin a[i] := random(21); // диапазон любой ставь( здесь от 0 до 20); write(a[i]:3); if i mod 2 = 0 then begin cout := cout + 1; sum := sum + a[i]; end; end; writeln; writeln(‘Среднее арифметическое: ‘, sum / cout); end.
Участник клуба
: 1,602
program pr; var a: array [1..100] of integer; c, i, n, cout, sum: integer; avg: real; begin randomize; cout := 0; sum := 0; writeln(‘Введите число С: ‘); readln(c); writeln(‘Введите размер массива: ‘); readln(n); for i := 1 to n do begin a[i] := random(21); // диапазон любой ставь( здесь от 0 до 20); write(a[i]:4); if a[i] > c then begin cout := cout + 1; sum := sum + a[i]; end; end; writeln; if cout <> 0 then writeln(‘Среднее арифметическое: ‘, sum / cout) else writeln(‘Нет таких чисел’); end.
Последний раз редактировалось ZX Spectrum-128; 29.01.2018 в 18:51 .
Занятие 24 среднее арифметическое по элементам массива
: 2,537
А если вместо этого:
begin a[i] := random(21); // диапазон любой ставь( здесь от 0 до 20); write(a[i]:4); if a[i] > c then begin cout := cout + 1; sum := sum + a[i]; end; end;
begin a[i] := random(21); // диапазон любой ставь( здесь от 0 до 20); write(a[i]:4); if a[i]
то будет чуть короче.
Источник: www.programmersforum.ru
Функция, возвращающая среднее арифметическое двух аргументов
Написать функцию, которая возвращает среднее арифметическое двух переданных ей аргументов (параметров).
var a, b: real; function average(c,d: real): real; begin average := (c + d) / 2; end; begin readln(a,b); writeln(average(a,b):5:2); end.
Пример выполнения кода:
1.25 2.03 1.64
В программе создается функция average , имеющая два вещественных параметра ( c и d ) и возвращающая также вещественное число. В теле функции вычисляется среднее арифметическое аргументов, оно присваивается имени (идентификатору) функции. В языке программирования Pascal это означает, что присвоенное имени функции значение будет передано в основную ветку программы.
В основной ветке переменным a и b присваиваются значения, введенные пользователем. Далее вызывается функция average() , которой в качестве аргументов передаются значения этих переменных. В данном случае вызов функции не присваивается никакой переменной, так как возвращенное значение сразу будет выведено на экран.
Источник: pas1.ru
Как найти среднее арифметическое элементов в непустом списке?
Не могу никак написать функцию чтобы найти среднее арифметическое элементов списка в Паскаль. Подскажите, как это можно реализовать. Буду очень благодарен!
PASCAL. Урок 3. Арифметические операции. ПАСКАЛЬ
- Вопрос задан более трёх лет назад
- 630 просмотров
2 комментария
Простой 2 комментария
Maks Kulikov дорогой пользователь, настоятельно рекомендуем еще раз обратить самое пристальное внимание на п. 3.1 регламента работы сервиса (и, в особенности, на его последний абзац).
В противном случае ваши вопросы будут удаляться по причине тег-спама, а систематические нарушения приведут к блокировке учетной записи.
Решения вопроса 0
Ответы на вопрос 1
Программист
uses crt; type massiv = array [1..1000] of integer; var i,n,summa : integer; srednee : real; A : massiv; begin clrscr; write(‘Введите кол-во элементов : ‘);readln(n); summa := 0 ; for i:=1 to n do begin write(‘Введите ‘,i, ‘ элемент : ‘); readln(A[i]); summa := summa + A[i]; end; srednee := summa / n; writeln(‘Среднее арифметическое ‘, srednee:3:2); // округляем readln; end.
Источник: qna.habr.com