Программа: Встречается ли k число в массиве?

Задача: Проверить, встречается ли число k в массиве А[10]

PROGRAM chislokvmass;
USES crt;
	var A   :array[1..10] of integer; 
    	k,i :integer;
BEGIN
	WriteLn('Введите число k');
	ReadLn(k);
	for i:=1 to 10 do
	  begin
		A[i]:=random(10);
		if A[i] = k 
        then WriteLn('Число ',k,' присутствует в массиве');
	  end;
END.

Просмотрело: 2294

Возможно, Вы искали: