Найти в массиве количество элементов, больших 5 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Создать одномерный массив из 10 вещественных чисел из диапазона от 5 до 15. Вывести массив на экран. Найти в этом массиве количество элементов,больших 5

Решение задачи: «Найти в массиве количество элементов, больших 5»

textual
Листинг программы
b:=15;
a:=5;
k:=0;
for i:=1 to n do
 begin
  x[i]:=random(b-a+1)+a; 
  write(x[i],' ');
  if x[i]>5 then
   inc(k);
 end;

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

  1. Переменная b инициализируется значением 15.
  2. Переменная a инициализируется значением 5.
  3. Переменная k инициализируется значением 0.
  4. Переменная i принимает значения от 1 до n.
  5. В цикле for i:=1 to n do выполняется следующий код:
    • Переменная x[i] инициализируется случайным числом в диапазоне от b-a+1 до b.
    • Число x[i] выводится на экран с пробелом.
    • Если x[i] больше 5, то значение переменной k увеличивается на 1.
  6. Код завершается. Код подсчитывает количество элементов в массиве, которые больше 5.

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

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