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

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

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.

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.