Создайте массив из 10 целых случайных чисел от 0 до 15. Определите, есть ли равный 5....

Question

Создайте массив из 10 целых случайных чисел от 0 до 15. Определите, есть ли равный 5. Ответ выведите в виде слова да или нет.

Answer 1

Var i, n, k: integer;
var A: array [1..10] of integer;
begin
k:=0;
for i:=1 to 10 begin
 A[i]:=random(15);
 if A[i]=5 then
  k:=k+1;
 end;
if k=0 then writeln('нет');
          else writeln('да');
end.