Придумать программу которая в массиве случайных чисел находит число равное 10. Если такого числа не существует, то на экране должна появиться запись "такого числа не существует".

Предыдущий
вопрос Следующий
вопрос

Var a:array [1..15]of integer;

n, i, k:integer ;

Begin

Clrscr;

Writeln ('vvod kol-va elementov massiva') ;

Readln(n) ;

Randomize ;

For i:=1 to n do begin

A[i] := - 10+random (50);

Write (A[i] :5);

If a[i] =10 then writeln(' chislo ravno 10') else k:=k+1;

end;

If k=n then writeln ('takogo net') ;

Readln ;

End.