Предмет: Информатика, автор: 128500

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

Ответы

Автор ответа: 13nisa13

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.

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

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

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

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

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

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

128500: a[i]:=random(76)+25 это для 50?

13nisa13: random (x) дает случайное число от 0 до x-1,т.е random (51) дает случайное число от 0 до 50

13nisa13: random (15) дает случайное число от 0 до 14

13nisa13: a[i]:=random(15)+13 промежуток [13;27] random (15) дает случайное число от 0 до 14, а затем к этому случайному числу прибавляется 13. Минимальное число random (15) 0, когда к нему прибавляют 13 получается 13. Максимальное число random (15) 14, когда к нему прибавляют 13 получается 27.