Массив целых чисел⁚ вывод и вычисление количества элементов, превышающих среднее арифметическое на Pascal
Прежде чем приступить к созданию массива и вычисления необходимой информации, нужно разобраться в некоторых базовых понятиях. Так что давайте начнем!
Я решил выполнить данную задачу на языке программирования Pascal, который известен своей простотой и легким изучением. Поэтому если вы новичок в программировании, не беспокойтесь, у вас все получится!
Создание массива и вывод его элементов
Чтобы начать, мы должны создать массив из 10 целых чисел, принадлежащих полуинтервалу [0;20). В Pascal это выглядит так⁚
pascal
program ArrayExample;
var
a⁚ array[1;.10] of integer;
i⁚ integer;
begin
randomize; // Инициализируем генератор случайных чисел
for i ⁚ 1 to 10 do
begin
a[i] ⁚ random(20); // Генерируем случайное число от 0 до 19
end;
end.
В этом коде мы объявляем переменную `a` как массив из 10 целых чисел и переменную `i` для использования в цикле. Затем мы инициализируем генератор случайных чисел с помощью функции `randomize`.
Затем мы используем цикл `for` для заполнения массива `a` случайными числами от 0 до 19 с помощью функции `random(20)`. После каждой итерации цикла мы выводим текущий элемент массива с помощью функции `write` и добавляем пробел.
Вычисление количества элементов, превышающих среднее арифметическое
Теперь, когда мы вывели массив, давайте вычислим количество элементов, значения которых превышают среднее арифметическое значений его элементов.
pascal
program ArrayExample;
var
a⁚ array[1;.10] of integer;
i, sum, count⁚ integer;
average⁚ real;
begin
randomize; // Инициализируем генератор случайных чисел
sum ⁚ 0;
count ⁚ 0;
for i ⁚ 1 to 10 do
begin
a[i] ⁚ random(20); // Генерируем случайное число от 0 до 19
sum ⁚ sum a[i]; // Суммируем все элементы массива
end;
average ⁚ sum / 10; // Вычисляем среднее арифметическое
for i ⁚ 1 to 10 do
begin
if a[i] > average then
count ⁚ count 1; // Увеличиваем счетчик для каждого элемента, превышающего среднее арифметическое
end;
writeln(‘Среднее арифметическое⁚ ‘, average);
writeln(‘Количество элементов, превышающих среднее⁚ ‘, count);
end.
В этом коде мы добавили несколько новых переменных⁚ `sum` для хранения суммы всех элементов массива, `count` для подсчета количества элементов, превышающих среднее арифметическое, и `average` для хранения вычисленного среднего арифметического значения.
Мы используем тот же цикл `for` для заполнения массива и суммирования его элементов. Затем мы вычисляем среднее арифметическое, разделив сумму на количество элементов.
После этого мы снова используем цикл `for`, чтобы пройти по всем элементам массива и проверить, превышает ли значение элемента среднее арифметическое. Если да, то мы увеличиваем счетчик `count` на 1.
Наконец, мы выводим на экран среднее арифметическое и количество элементов, превышающих его, с помощью функции `writeln`.
Это и есть решение задачи! Теперь вы можете скомпилировать и запустить эту программу на компьютере с установленной средой разработки Pascal, чтобы увидеть результат.
Надеюсь, эта статья была полезной и помогла вам разобраться с созданием массива и вычислением информации о его элементах на языке Pascal! Удачи в изучении программирования!