Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее чисел, не меньших X - Pascal ABC
Формулировка задачи:
Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее арифметическое чисел, не меньших заданного x
Решение задачи: «Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее чисел, не меньших X»
textual
Листинг программы
const n=10; var a,i,k,kk:integer; z:array[1..n] of integer; s:real; begin write('A='); readln(A); s:=0; k:=0; kk:=0; randomize; for i:=1 to n do begin z[i]:=random(20)-10; write(z[i],' '); if not(z[i]<a) then begin s:=s+z[i]; Inc(kk); end; if (z[i]=0) and (i mod 2=0) then inc(k); end; writeln; writeln('Среднее арифметическое=',s/kk); writeln('Количество нулей=',k); end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - количество элементов в массиве z;
- A - входное значение, которое предполагается, что пользователь вводит число;
- a, i, k, kk - счетчики для подсчета нулей и суммы значений массива z;
- z - массив целых чисел, в котором каждый элемент генерируется случайным образом от -10 до 10;
- s - сумма всех чисел в массиве z;
- k - количество чисел в массиве z, которые меньше введенного пользователем числа A.
Далее происходит следующее:
- Пользователю предлагается ввести число A.
- Переменная s инициализируется нулем.
- Переменная k инициализируется нулем.
- Переменная kk инициализируется нулем.
- Вызывается функция randomize, которая генерирует случайные числа.
- Запускается цикл for, который проходит по каждому элементу массива z.
- Внутри цикла каждый элемент массива z присваивается переменной z[i].
- Если элемент массива z меньше числа A, то переменная s увеличивается на значение элемента массива z, а переменная k увеличивается на единицу.
- Если элемент массива z равен нулю и его индекс четный, то переменная k увеличивается на единицу.
- После завершения цикла выводится среднее арифметическое чисел в массиве z, количество чисел, меньших числа A, и сами числа из массива z. Таким образом, данный код подсчитывает количество нулей в массиве z, стоящих на чётных местах, и вычисляет среднее чисел, не меньших числа A.