Написать программу исполняющую поиск в одномерном массиве A, состоящего из

Написать программу исполняющую поиск в одномерном массиве A, состоящего из 20 частей, данных случайным образом элемента, одинакового 50. Если такового нет, вывести на экран извещенье Такового нет.

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

var a:array[1..20] of integer;

i,k: integer;

begin

for i:=1 to 20 do

begin

a[i]:=random(51)+25;

write (a[i],' ')

end;

writeln;

for i:=1 to 20 do

if a[i]=50 then

begin

writeln (i,' элемент = ',a[i]);

k:=k+1

end;

if k=0 then writeln ('Такового нет')

end.

Алеша Клынкин
Просто брала просвет [25;50] чтоб повысить возможность выпадения 50
Толик Икренников
если заместо 50 по условию 26?
Арсений
a[i]:=random(15)+13 можно так...
Лилия Мамочкова
Я там выше налгала... ))) просвет первого условия [25;75] ... )))
Паша Барак
a[i]:=random(15)+13 просвет [13;27]
Данил Сычанов
ну все я окончательно запуталась
Lomshev Konstantin
a[i]:=random(76)+25 это для 50?
Паша Нечихман
random (x) дает случайное число от 0 до x-1,т.е random (51) дает случайное число от 0 до 50
Кира Моссалева
random (15) дает случайное число от 0 до 14
Милена Ахменеева
a[i]:=random(15)+13 просвет [13;27] random (15) дает случайное число от 0 до 14, а потом к этому случайному числу прибавляется 13. Малое число random (15) 0, когда к нему прибавляют 13 получается 13. Максимальное число random (15) 14, когда к нему добавляют 13 выходит 27.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт