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

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

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

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

Листинг программы

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.

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