Нужно заполнить массив из 10 случ чисел и вывести номера всех элементов,равных 50 в Pascal. спасайте плз

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.

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

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