Question

nhập mảng có N phần tử nguyên và số nguyên x,y từ bàn phím .tìm và thay thế những phần tử có giá trị x thành y.

giúp mình với

Answer 1

var a:array[1..200] of integer;

x,y,i,n:integer;

begin

write('n = ');readln(n);

write('x = ');readln(x);

write('y = ');readln(y);

for i:=1 to n do

begin

write('a[',i,' = ');readln(a[i]);

end;

for i:=1 to n do

if a[i] = x then a[i]:=y;

writeln('Mang sau khi thay the ');

for i:=1 to n do write(a[i]:10);

readln;

end.