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

Question

Информатика

Албин

4 июня, 08:48

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

+4

Ответы (1)

Знаете ответ на вопрос?

Настасий · 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.