Программа для нахождение среднего арифметического паскаль

Условие задачи : Задан массив А, состоящий из n чисел. Найти среднее арифметическое его элементов. Элементы вводятся с клавиатуры.

Сложность : легкая .

Данную задачу мы будем решать на основе этой (ссылка), но там мы искали просто сумму, здесь же нам надо в добавок найти среднее арифметическое всех этих чисел :

Начнем решать задачу.

Первое что мы сделаем мы создадим свой тип данных как и зачем читайте (тут) :

Дальше уже объявим переменные которые нам понадобятся :

Для чего они нужны :
i — для цикла, когда мы будем заполнять массив
n — кол-во элементов
summa — сумма элементов массива
…дальше понятно без слов ))

Теперь просим пользователя ввести кол-во элементов , а сумме присваиваем 0, т.к. для корректной работы с переменной нам нужно присвоить ей какое-то значение.

Дальше делаем цикл в нем мы просим пользователя ввести число и сразу прибавляем к текущей сумме :

Ну и всё, осталось только подсчитать среднее арифметическое, т.е. мы сумму делим на количество элементов (n)

Задача

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

Решение

Алгоритм решения задачи:

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

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

Ответ или решение 1

var
a,b,s : real; // объявляем переменные

begin
writeln(‘Введите два числа:’); // вывод на экран строки
readln(a,b); // считываем два числа, введенных с клавиатуры
s:= (a + b) / 2 ; // вычисляем среднее арифметическое
writeln (‘Среднее арифметическое чисел ‘, a, ‘ и ‘, b, ‘ равно ‘, s); // вывод на экран результата
end.

Ссылка на основную публикацию
Adblock
detector