Составьте программу которая наполняет массив А[1: 10] случайными целыми числами в

Составьте программу которая заполняет массив А[1: 10] случайными целыми числами в спектре от 1 до 100 Обусловьте если в массиве элемент одинаковый 5 ответ в виде слов да либо нет

Задать свой вопрос
1 ответ

var

  a:array[0..9] of byte;

  k:byte;

  f:boolean;

begin

randomize;

for k:=0 to 9 do begin

a[k]:= random(99)+1;

if(a[k]=5) then f:=true;

end;

if(f)then writeln('Да')

else writeln('Нет');

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт