Tìm trong dãy số nguyên a1,…an, số nguyên k nằm ở vị trí nào trong dãy. Cần gấp thiệt gấp lun đó mấy bạn

0 bình luận về “Tìm trong dãy số nguyên a1,…an, số nguyên k nằm ở vị trí nào trong dãy. Cần gấp thiệt gấp lun đó mấy bạn”

1. Program timsoK;

   uses crt;

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

   k,i,n: integer;

   begin

   clrscr;

   writeln (‘Nhap so N : ‘); readln (n);

   for i:=1 to n do begin write (‘a[‘,i,’] = ‘); readln (a[i]); end;

   writeln (‘K = ‘); readln (k);

   for i:=1 to n do if a[i] = k then writeln (‘So ‘,k,’ o vi tri thu ‘,i,’ trong day.’) else writeln (‘Khong tim thay.’);

   readln;

   end.

   Bình luận

2. uses crt;
   var n,k,i:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘n,k=’);readln(n,k);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
         end;
      writeln(‘Vi tri: ‘);
      for i:=1 to n do if a[i]=k then writeln(i);
   readln
   end.

   Bình luận