Question

Viết phương trình nhập vào 1 mảng số nguyên A có tối đa không quá 200 phần tử và 1 phần tử K. Hiển thị ra màn hình số lần suất hiện của K trong mảng

Answer 1

uses crt;

var i,n,k,x,y:integer;

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

begin

writeln('nhap n va k');readln(n,k);

for i:=1 to n do begin

write('a[i]=');

readln( a[i]);

end;

i:=1; y:=0;

if a[1]<>k then

while (y=0)and(i<=n) do

if a[i]=k then begin x:=i;

y:=y+1;end

else i:=i+1;

writeln('vi tri dau tien la ',x);

for i:=1 to n do

if a[i]=k then begin

x:=i;

writeln('vi tri k trong mang la ',x);

end;

readln

end.

Answer 2

var i,n,k,t:longint; a:array[1..200] of longint; begin read(n,k); //Thực hiện nhập số phần tử của mảng và k. for i:=1 to n do begin read(a[i]); //Nhập giá trị của các phần tử của mảng. if a[i]=k then inc(t); //Nếu xuất hiện biến a[i]=k thì cộng vào biến đếm t thêm 1 đơn vị. end; write(t); //in ra giá trị của t. end.

Answer 3

https://i.imgur.com/NNcQHuL.png

Answer 4

uses crt;
var a:array[1..200]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------------}
for i:=1 to n do write(a[i],' ');
{----------------------------------------------------------------}
writeln;
write('nhap so can kiem tra:'); readln(k);
dem:=0;
for i:=1 to n do
if a[i]=k then dem:=dem+1;
writeln('trong day co ',dem,' so ',k);
readln;
end.