Вопрос от посетителя
Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных Х. Пример: исходный массив: 4 0 1 2 0 1 3 4 1 0 что ищем? 0 А[2], А[5], А[10]
народ срочно нужно, помогите плиз
Отвечает Илюха:
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.