Очень прошу помочь с заданием по информатике ! Заполнить массив из 10 элементов...

Question

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

Answer 1

Var
a:array [1..10] of integer;
b,i,x:integer;
begin
for i:=1 to 10 do a[i]:=random(5);
write('Исходный массив:');
for i:=1 to 10 do write(' ',a[i]);
writeln;
write('Что ищем? ');
readln(x);
for i:=1 to 10 do 
if a[i]=x then
begin
if b>0 then write(', ');
write('A[',i,']');
b:=1;
end;
end.

Comments

Спасибо тебе огромное