Заполните массив с клавиатуры целыми числами. определите, - вопрос №8781023 от нрррлртптп 13.10.2020 07:02

Question

Информатика: Заполните массив с клавиатуры целыми числами. определите, есть ли в данном массиве положительные элементы, кратные числу a заданному с клавиатуры? если есть, то вывести слово «yes», иначе — «no». входные данные: в первой строке целое число n (0 n ≤ 100) — кол-во элементов в массиве и число целое а (по модулю не превосходит 32000). во второй строке целые числа х1, разделенные пробелом (числа по модулю не превосходят 32000) — значения элементов массива. выходные данные: слово «yes» или «no» в соответствии

нрррлртптп · Answer

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.
Пробуй так