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.