Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х. Пример: исходный массив: 4 0 1 2 0 1 3 4 1 0 что ищем? 0 А[2], А[5], А[10] народ срочно нужно, помогите плиз

Question

Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х. Пример: исходный массив: 4 0 1 2 0 1 3 4 1 0 что ищем? 0 А[2], А[5], А[10] народ срочно нужно, помогите плиз

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array[0..10] of integer; i,x:integer; Begin read(x); randomize; for i := 1 to 10 do begin a[i]:=random(4); if a[i]=x then writeln('a[',i,']'); end; End.