Cách xóa một văn bản: Bôi đen phần văn bản muốn xóa rồi ấn chọn delete trên bản phím.

Cách cắt một văn bản: Bôi đen phần văn bản muốn cắt rồi nhấn Ctrl + X để cắt ( hoặc nháy chuột trái, chọn Cut.

bn đè lên phím nguồn ( nút để bật ) 1 hồi lâu ik , cách này chỉ lag dùng khi gặp sự cố thou nha , nếu thường xuyên dùng cách này Máy sẽ bị hư ak

khong nha em zai:)

https://www.google.com/search?q=%E1%BA%A3nh+anime+nam+%C4%91%E1%BA%B9p&rlz=1C1CHZN_enVN948VN948&sxsrf=ALiCzsaA_DJCGe_ju6L-qxDK78N1fsniig:1652543368223&source=lnms&tbm=isch&sa=X&ved=2ahUKEwj1hsHjq9_3AhUASmwGHXPTChkQ_AUoAXoECAEQAw&biw=1517&bih=670&dpr=0.9

đây e=))

b

là còn cái nịt

Câu 2: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

 if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Câu 1:

program bai1;
uses crt;
var i,d:integer;
a:array[1..100]of integer;
begin
  clrscr;
  i:=1;
  write('a[',i,']=');readln(a[i]);
  repeat
    inc(i);
    write('a[',i,']=');readln(a[i]);
  until a[i]<=0;
  d:=i;
  writeln('cac so da nhap la:');
  for i:=1 to d do
  write(a[i]:3);  
  readln;
end.

Câu 2:

program bai2;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
begin
  clrscr;
  write('nhap so phan tu cua day so:');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');readln(a[i]);
  end;
  writeln('cac so le trong day la:');
  for i:=1 to n do
  if a[i] mod 2<>0 then write(a[i]:3);
  readln;
end.

Câu 3:

program bai3;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
t:longint;
begin
  clrscr;
  write('nhap so phan tu cua day so:');readln(n);
  t:=0;
  for i:=1 to n do
  begin
    write('a[',i,']=');readln(a[i]);
    if a[i] mod 2=0 then t:=t+a[i];
  end;
  writeln('tong cac phan tu chan cua day la: ',t);
  readln;
end.