slavik4289
Var a:array[1..100] of integer; i,x,n,v:integer; begin randomize; v:=0; writeln('Введи размерность массива'); readln(n); for i:=1 to n do begin a[i]:=random(5); write(a[i], ' '); end; writeln; writeln('Введи х'); readln(x); for i:=1 to n do if a[i]=x then v:=v+1; if v=0 then write('Нет элементов, равных х') else for i:=1 to n do if a[i]=x then write(i, ' '); end.
Answers & Comments
i,x,n,v:integer;
begin
randomize;
v:=0;
writeln('Введи размерность массива');
readln(n);
for i:=1 to n do begin a[i]:=random(5); write(a[i], ' '); end;
writeln;
writeln('Введи х');
readln(x);
for i:=1 to n do if a[i]=x then v:=v+1;
if v=0 then write('Нет элементов, равных х')
else for i:=1 to n do if a[i]=x then write(i, ' ');
end.