cho dãy A gồm N các số nguyên:a1,a2,..aN và 1 số nguyên K.Cần biết truy dãy có bao nhiu số hằng có giá trị = giá trị của K? giải hộ mik vs <3
2 câu trả lời
uses crt;
var A : array [1 .. 100] of integer;
i, N, K, d : integer;
begin
clrscr;
d := 0;
write('Nhap N, K = '); readln(N, K);
write('Nhap day gom ', N ,' so : ');
for i := 1 to N do begin read(A[i]);
if A[i] = K then d := d + 1; end;
write('Co ', d ,' so bang K');
readln
end.
program tinhsobangk;
uses crt;
var a:array[1..100] of longint;
n,dem:longint;
begin
clrscr;
write('nhap so phan tu cua day',n);
readln(n);
dem:=0;
for i:=1 to n do
begin
write('a[',i,']');
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]=x then
dem:=dem+1;
writeln(' trong day co do hang so co gia tri bang k la',dem);
end;
readln
end.
Câu hỏi trong lớp
Xem thêm
