var
arrey{1..10] of integer;//объявляем массив с ячейками от 1 до 10 с целочисленными данными
i:integer
begin
for i:=1 to 10 do //цикл от 1 до 10, соответственно при первом цикле будет i=1 в следующем 2 и так далее последний цикл отрабатывает при 10
begin//т.к. после do должен быть один оператор, делаем begin ... end в него можно неограниченное кол-во операторов
a[i]:=random(3)+49;//функция random генерирует число от 0 до значения меньшего на 1, указанного в скобках, чтобы могло получится 50 нужно сдвинуть диапазон , для этого добавляем +49. Всего 3 возможных значения генерируется, чтобы большая вероятность нахождения в массиве числа 50
write{a[i])," ");//выводим только что сгенерированное число , чтобы оно не слиплось со следующим добавляем пробел. В конце цикла получим вывод массива через пробел
end;
writeln()//переносим курсор ввода на следующую строку
for i:=1 to 10 do //повторяем проход по массиву, только сейчас он уже заполнен
if a[i]=50 then write{i," ");//если число в массиве равно 50, то вывести i(номер этого элемента)
end.
если что то через //пишется комментарий и компилятор игнорирует все что в этой строке написано
Отдельное спасибо удобному редактору, который перемешал куски текста, поэтому могут быть опечатки которые я не заметил