Для выполнения поставленной задачи на языке программирования Pascal можно использовать следующий подход:
- Создать массив из 10 элементов.
- Заполнить массив случайными числами в диапазоне от 0 до 100.
- Найти среднее значение элементов массива, которые меньше 50.
Вот пример кода, который выполняет эти задачи:
program AverageBelow50;
uses crt;
const
Size = 10;
MaxValue = 100;
var
Numbers: array[1.Size] of Integer;
Sum, Count, i: Integer;
Average: Real;
begin
Randomize; // Инициализация генератора случайных чисел
Sum := 0;
Count := 0;
// Заполнение массива и вывод его элементов
for i := 1 to Size do
begin
Numbers[i] := Random(MaxValue + 1); // Случайное число от 0 до 100
Write(Numbers[i], ' ');
end;
// Подсчёт суммы и количества элементов меньше 50
for i := 1 to Size do
begin
if Numbers[i] < 50 then
begin
Sum := Sum + Numbers[i];
Count := Count + 1;
end;
end;
// Расчёт среднего значения
if Count > 0 then
begin
Average := Sum / Count;
Writeln;
Writeln('Среднее значение элементов < 50: ', Average:0:2);
end
else
Writeln('Нет элементов меньше 50.');
Readln;
end.
В этом коде:
Randomize
инициализирует генератор случайных чисел.
Random(MaxValue + 1)
генерирует случайное число от 0 до 100.
- Мы используем два цикла: один для заполнения массива и вывода его элементов, другой — для подсчёта суммы и количества подходящих элементов.
- Если найдены элементы, удовлетворяющие условию (меньше 50), то рассчитывается и выводится их среднее значение.
Такой подход позволяет эффективно решить задачу с использованием базовых конструкций языка Pascal.