Нужно заполнить массив из 10 случ чисел и вывести номера всех

var

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

writea[i])," ");//выводим только что сгенерированное число , чтоб оно не слиплось со следующим  прибавляем пробел. В конце цикла получим вывод массива через пробел

end;

writeln()//переносим курсор ввода на последующую строчку

for i:=1 to 10 do //повторяем проход по массиву, только на данный момент он теснее заполнен

if a[i]=50 then writei," ");//если число в массиве одинаково 50, то вывести i(номер этого элемента)

end.

если что то через //пишется комментарий и компилятор игнорирует все что в этой строке написано

Отдельное спасибо комфортному редактору, который перемешал куски текста, потому могут быть опечатки которые я не увидел