Придумать программу которая в массиве случайных чисел находит число равное 10. Если такого числа не существует, то на экране должна появиться запись "такого числа не существует".
Придумать программу которая в массиве случайных чисел находит число равное 10. Если такого числа не существует, то на экране должна появиться запись "такого числа не существует".
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.