Найти количество чисел больших Х - PascalABC.NET
Формулировка задачи:
Найти количество чисел больших Х(Х лежит в диапазоне от -А до А), в последовательности из N случайных чисел, сгенерированных в диапазоне от -А до А включительно. Х,N,А - вводить с клавиатуры. Сгенерированные числа и результат расчета вывести на экран.
Решение задачи: «Найти количество чисел больших Х»
textual
Листинг программы
program pr; type arr=array[1..100] of integer; var a:arr; i,x,n,f,m,cout:integer; begin writeln('Введите размер последовательности'); readln(n); writeln('Введите диапозон последовательности от -А до А через пробел'); readln(f,m); for i:=1 to n do begin a[i]:=random(m-f+1)+f; write(a[i]:3); end; writeln; writeln('Введите число x'); readln(x); for i:=1 to n do if a[i]>x then begin inc(cout); end; writeln('Количество чисел: ',cout); end.
Объяснение кода листинга программы
Список действий в коде:
- Ввод размера последовательности (n).
- Ввод диапазона последовательности (f, m).
- Заполнение массива a случайными числами от f до m.
- Вывод на экран каждого элемента массива a, округлив до трех знаков после запятой.
- Ввод числа x.
- Перебор элементов массива a и увеличение счетчика (cout), если число больше x.
- Вывод количества чисел, больших x.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д