Подсчитать количество нулевых чисел, стоящих на чётных местах, и вычислить среднее чисел, не меньших 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. Далее происходит следующее:
    1. Пользователю предлагается ввести число A.
    2. Переменная s инициализируется нулем.
    3. Переменная k инициализируется нулем.
    4. Переменная kk инициализируется нулем.
    5. Вызывается функция randomize, которая генерирует случайные числа.
    6. Запускается цикл for, который проходит по каждому элементу массива z.
    7. Внутри цикла каждый элемент массива z присваивается переменной z[i].
    8. Если элемент массива z меньше числа A, то переменная s увеличивается на значение элемента массива z, а переменная k увеличивается на единицу.
    9. Если элемент массива z равен нулю и его индекс четный, то переменная k увеличивается на единицу.
    10. После завершения цикла выводится среднее арифметическое чисел в массиве z, количество чисел, меньших числа A, и сами числа из массива z. Таким образом, данный код подсчитывает количество нулей в массиве z, стоящих на чётных местах, и вычисляет среднее чисел, не меньших числа A.

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы