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

Question

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

Answer 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.

Comments

Просто взяла промежуток [25;50] чтобы повысить вероятность выпадения 50

---

если вместо 50 по условию 26?

---

a[i]:=random(15)+13 можно так...

---

Я там выше наврала... ))) промежуток первого условия [25;75] ... )))

---

a[i]:=random(15)+13 промежуток [13;27]

---

ну все я окончательно запуталась

---

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.