Сделайте массив из 10 целых случайных чисел от 0 до 15.

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт