Заполните массив с клавиатуры целыми числами. Определите, есть ли в данном массиве положительные элементы, кратные числу A задан
ному с клавиатуры? Если есть, то вывести слово «YES», иначе — «NO».
Входные данные:
в первой строке целое число n (0 < n ≤ 100) — кол-во элементов в массиве и число целое А (по модулю не превосходит 32000). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) — значения элементов массива.
Выходные данные:
слово «YES» или «NO» в соответствии с условием задачи.
Var yes,no:string; a,n,i:longint; c:integer; b:array [1..100] of longint; begin writeln('введите кол-во элементов в массиве'); read(n); writeln('введите число A'); read(a); For i:=1 to n do readln(b[i]); for i:=1 to n do if b[i] mod a = 0 then begin yes:='YES'; end else no:='NO'; begin end; begin if yes = 'YES' then begin writeln(yes); end else writeln(no); end; end. Пробуй так