Giúp mình với ạ!!! Tạo mảng A gồm n phần tử ( n<=100) số nguyên. nhập số nguyên k. Tìm phần tử trong mảng A có giá trị bằng k nếu có hãy in ra các ph

0 bình luận về “Giúp mình với ạ!!! Tạo mảng A gồm n phần tử ( n<=100) số nguyên. nhập số nguyên k. Tìm phần tử trong mảng A có giá trị bằng k nếu có hãy in ra các ph”

1. program ct;

   uses crt;

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

         k,i,n:integer;

   begin clrscr;

      write(‘Nhap so phan tu n: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

      writeln(‘Nhap so k: ‘): readln(k);

      for i:=1 to n do

        if A[i]=k then writeln(‘Phan tu bang k la: A[‘,i,’]);

   readln;

   end.

   Học tốt!

   Trả lời

2. uese crt;

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

   i,n,k:integer;

   begin

   clrscr;

   writeln(‘Nhap so phan tu:’); readln(n);

   for i:=1 to n do begin

   writeln(‘nhap so thu’,i,’:’); readln(a[i]);

   end;

   writeln(‘Nhap k=’): readln(k);

   writeln(‘cac so = k la:’);

   for i:=1 to n do

   if k=a[i] then writeln(‘so thu’,i,’);

   readln;

   end.

   Trả lời