Cho mảng số gồm n số tự nhiên (n<=20) và 1 số tự nhiên k a, Đưa ra vị trí những phần tử có giá trị bằng k trong mảng. b, Thay thế giá trị bằng k trong mảng bằng số đối của k.
Cho mảng số gồm n số tự nhiên (n<=20) và 1 số tự nhiên k a, Đưa ra vị trí những phần tử có giá trị bằng k trong mảng. b, Thay thế giá trị bằng k trong mảng bằng số đối của k.
program Mang;
uses CRT;
var a: array[1..100] of integer;
n,k,i: integer;
begin
clrscr;
write(‘Nhap n= ‘); readln(n);
write(‘Nhap k= ‘); readln(k);
for i:=1 to n do
begin
write(‘a[‘,i,‘]: ‘);readln(a[i]);
end;
write(‘Vi tri nhung phan tu bang k : ‘);
for i:=1 to n do
If a[i] = k then
begin
write(i,‘ ‘);
a[i]:= –k;
end;
writeln;
write(‘Mang sau khi thay the: ‘);
for i:=1 to n do
write(a[i],‘ ‘);
readln;
end.