дан массив. выведите его элементы, которые встречаются в массиве только один раз

Question

Информатика

Аврелия

13 января, 07:02

дан массив. выведите его элементы, которые встречаются в массиве только один раз

+3

Ответы (1)

Знаете ответ на вопрос?

Романка · Answer 1

Var

a: array [1 ... 10] of integer;

i, b : integer;

begin

randomize;

writeln ('b=') ;

readln (b) ;

for i:=1 to 10 do

a[i]:=Random (10) ;

for i:=1 to 10 do

if A[i] = b then

writeln ('есть', A[i])

else

writeln ('нет такого ')

end.