Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Làm tạm :v
var n,k,i,j,dem:integer;
q,k2:Array[1..104] of integer;
C:Array[1..109] of integer;
begin
assign(input,'truyvan3.inp');
reset(input);
readln(n,k);
for i:=1 to k do read(q[i]);
close(input);
assign(output,'truyvan3.out');
rewrite(output);
for i:=1 to n do C[i]:=2*i+n;
for j:=1 to k do
begin
dem:=0;
for i:=1 to n do if C[i]=q[j] then dem:=dem+1;
k2[j]:=dem;
end;
for j:=1 to k do writeln(k2[j]);
close(output)
end.
tham khảo
Cách ẩn/hiện thanh công cụ trong Excel bằng phím tắt
Nhấn tổ hợp phím Ctrl + F1 để ẩn thanh công cụ trong Excel > Nhấn lần nữa để hiện thanh công cụ trong Excel.
Cách ẩn/hiện thanh công cụ trong Excel bằng phím tắt
Nhấn tổ hợp phím Ctrl + F1 để ẩn thanh công cụ trong Excel > Nhấn lần nữa để hiện thanh công cụ trong Excel.