Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы - Pascal ABC

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

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

Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы

Решение задачи: «Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы»

textual
Листинг программы
var i,x,k:integer;
begin 
k:=0;
Randomize;
for i:=1 to 15 do
begin
x:=random(21)-10;
write(x,' ');
if x=0 then inc(k); 
end; writeln;
if k=0 then write('NO') else write('YES k=',k);
end.

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

В данном коде используется язык программирования Pascal ABC.

  1. Переменные:
    • i: счётчик для цикла
    • x: переменная для хранения случайного числа в диапазоне от -10 до 10
    • k: счётчик для отслеживания количества нулевых элементов
  2. В цикле for i от 1 до 15 происходит следующее:
    • x принимает случайное число от -10 до 10
    • Это число выводится на экран через функцию write
    • Если число равно нулю, то значение переменной k увеличивается на единицу
  3. По окончании цикла выводится сообщение о том, есть ли в списке нулевые элементы, используя функцию write
    • Если k равно нулю, выводится NO
    • Если k не равно нулю, выводится YES k= с значением k Таким образом, данный код проверяет, есть ли в списке из 15 случайных чисел от -10 до 10 нулевые элементы, и выводит соответствующее сообщение.

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

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