Как найти среднее арифметическое в паскале
Перейти к содержимому

Как найти среднее арифметическое в паскале

  • автор:

Найти среднее число из трех

Среди трех чисел найти среднее. Если среди чисел есть равные, вывести сообщение «Ошибка».

Пример работы программы

Введите три числа: 7 4 6 6

Решение задачи на языке Паскаль

var a1, a2, a3: integer; begin write ('Введите три числа: '); readln (a1, a2, a3); if (a1 = a2) or (a1 = a3) or (a2 = a3) or ((a1 = a2) and (a2 = a3)) then writeln('Ошибка') else if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 >a3)) then writeln(a1) else if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 >a3)) then writeln(a2) else writeln(a3); end.

Хотя задача кажется простой, ее решение не такое очевидное. Можно, например, проверить каждое число, лежит ли оно между двумя другими. Или найти минимальное из трех, после чего вывести минимальное из оставшихся двух. Ниже выбран первый способ.

  1. Исключаем равенство чисел. Если первое число равно второму или первое равно третьему или второе равно третьему или все три числа равны (первое равно второму и второе равно третьему), то вывести сообщение «Ошибка». Иначе переходим к п. 2.
  2. Проверяем лежит ли первое число между вторым и третьим. Если первое число больше второго, но меньше третьего (т.е. второе минимально), или первое число меньше второго, но больше третьего (т.е. третье минимально), то значит оно среднее. Иначе переходим к п. 3.
  3. Проверяем лежит ли второе число между первым и третьим. Если второе число больше первого, но меньше третьего, или меньше первого, но больше третьего, то оно среднее. Иначе переходим к п. 4.
  4. Среднее число третье, так как ни один другой вариант не подошел. Действительно, числа не равны друг другу, первое и второе числа средними не являются.

Как найти среднее арифметическое в паскале

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

Сообщений: 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.

Участник клуба

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

Сообщений: 1,601

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 .

ZX Spectrum-128
Посмотреть профиль
Найти ещё сообщения от ZX Spectrum-128

Найти среднее арифметическое всех чисел.

Author24 — интернет-сервис помощи студентам

Ввести N различных чисел. Найти среднее арифметическое всех чисел.

Лучшие ответы ( 1 )

94731 / 64177 / 26122

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

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

Ответы с готовыми решениями:

Найти среднее арифметическое всех чисел
Ввести N различных чисел. Найти среднее арифметическое всех чисел. Составить две программы: с.

Найти среднее арифметическое квадратов всех чисел от 1 до 40
2)найти среднее арифметическое квадратов всех целых чисел от 1 до 40.

Вводится не менее 8 чисел. Конец ввода — 0. Найти среднее арифметическое всех чисел больших 38
Вводится не менее 8 чисел. Конец ввода — 0. Найти среднее арифметическое всех чисел больших 38 и.

Найти среднее арифметическое всех целых чисел от 1 до 1000
Решите

называйте темы информативно.
Меню пользователя magirus
Читать блог

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

Сообщений: 75

Лучший ответ

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

Решение

1 2 3 4 5 6 7 8 9 10 11 12 13 14
var N,x,S,i:integer; SR:real; begin writeln ('кол-во чисел в последовательности N='); readln (N); S:=0; for i:=1 to N do begin read (x); S:=S+x; end; Sr:=S/N; Writeln('Sr=',Sr) end.

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

Сообщений: 5

очень выручаете.

NIkolayNeron

Вычислить сумму чисел от 5 до 55.И найти среднее значение

87844 / 49110 / 22898

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

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

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

Найти среднее арифметическое всех целых чисел меньших за 20
Найти среднее арифметическое всех целых чисел меньших за 20

Найти среднее арифметическое всех отрицательных чисел файла
Файл содержит действительные числа. Найти среднее арифметическое всех отрицательных чисел файла.

Найти среднее арифметическое всех целых чисел от А до 200
Найти среднее арифметическое всех целых чисел от А до 200 (значение А и В вводится с клавиатуры;.

Найти среднее арифметическое чисел всех элементов массива
Найти среднее арифметическое чисел всех элементов массива.

Или воспользуйтесь поиском по форуму:

Как найти среднее арифметическое элементов в непустом списке?

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

  • Вопрос задан более трёх лет назад
  • 796 просмотров

2 комментария

Простой 2 комментария

TosterModerator

Модератор @TosterModerator

Maks Kulikov дорогой пользователь, настоятельно рекомендуем еще раз обратить самое пристальное внимание на п. 3.1 регламента работы сервиса (и, в особенности, на его последний абзац).
В противном случае ваши вопросы будут удаляться по причине тег-спама, а систематические нарушения приведут к блокировке учетной записи.

maks9090-843

Maks Kulikov @maks9090-843 Автор вопроса
Решения вопроса 0
Ответы на вопрос 1

PeterLS

Программист

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.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *