Найти количество чисел больших Х - 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.

Объяснение кода листинга программы

Список действий в коде:

  1. Ввод размера последовательности (n).
  2. Ввод диапазона последовательности (f, m).
  3. Заполнение массива a случайными числами от f до m.
  4. Вывод на экран каждого элемента массива a, округлив до трех знаков после запятой.
  5. Ввод числа x.
  6. Перебор элементов массива a и увеличение счетчика (cout), если число больше x.
  7. Вывод количества чисел, больших x.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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