Biến phải được viết dính liền 

Câu 3:

Program Tin_hoc;

Uses crt;

Var i,n,min:integer;

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

Begin

clrscr;

Write('Nhap n: ');readln(n);

For i:= 1 to n do 

Begin

write('a[',i,'] = ');

readln(a[i]);

End;

min:=a[1];

For i:= 1 to n do If min>a[i] then min:=a[i];

Write('So nho nhat trong cac so vua nhap la so thu: ');

For i:= 1 to n do If a[i] = min then write(a[i],'  ');

readln;

End.

Câu 2:

Program Tin_hoc;

Uses crt;

Var i,n,tongchan,tongle:integer;

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

Begin

clrscr;

Write('Nhap n: ');readln(n);

tongchan:=0;tongle:=0;

Writeln('Nhap ',n,' phan tu:');

For i:= 1 to n do 

Begin

write('A[',i,'] = ');

Readln(a[i]);

If a[i] mod 2 = 0 then tongchan:=tongchan+a[i] else tongle:=tongle+a[i];

End;

Writeln('Tong cac so chan cua day la: ',tongchan);

Writeln('Tong cac so le cua day la: ',tongle);

Readln;

End.

Câu 1:

Program Tin_hoc;

Uses crt;

Var i,n,tong:integer;

      tb:real;

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

Begin

clrscr;

Write('Nhap n: ');readln(n);

tong:=0;

Writeln('Nhap ',n,' phan tu cua day:');

for i:= 1 to n do

  begin

  write('a[',i,'] = ');

  readln(a[i]);

  tong:=tong+a[i];

  end;

tb:=tong/n;

Writeln('Gia tri trung binh cua day la: ',tb:0:4);

readln;

end.

tam là một biến nha em

inc là một câu lệnh dùng để tăng giá trị của biến

Program Tin_hoc;

Uses crt;

Var i,tam,n,chan,le,j:integer;

      a,daychan,dayle:array[1..10000] of integer;

Begin

clrscr;

Write('Nhap n: ');readln(n);

chan:=0;le:=0;

Writeln('Nhap ',n,' phan tu cua mang:');

For i:= 1 to n do 

Begin

write('A[',i,'] = ');

Readln(a[i]);

If a[i] mod 2 = 0 then 

  Begin

  inc(chan);

  daychan[chan]:=a[i];

  end

else

  Begin

  inc(le);

  dayle[le]:=a[i];

  End;

End;

For i:= 1 to chan do

  for j:= i to chan do If daychan[i]>daychan[j] then 

  Begin

  tam:=daychan[i];

  daychan[i]:=daychan[j];

  daychan[j]:=tam;

  End;

For i:= 1 to le do

  for j:= i to le do If dayle[i]<dayle[j] then 

  Begin

  tam:=dayle[i];

  dayle[i]:=dayle[j];

  dayle[j]:=tam

  End;

Writeln('Day sau khi sap xep:');

For i:= 1 to chan do write(daychan[i],'  ');

For i:= 1 to le do write(dayle[i],'  ');

Readln;

End.

a,b,c,d đều sai

Program Tin_hoc;

Uses crt; 

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap 1 so nguyen duong n: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu:');

For i:= 1 to n do 

Begin

Write('A[',i,'] = ');

readln(a[i]);

If a[i] mod 2 = 0 then inc(dem);

End;

Writeln('Day vua nhap la:');

For i:= 1 to n do write(a[i],'  ');writeln;

Writeln('Day so vua nhap co ',dem,' so chan');

readln;

End.

       sin a + cos a = \(\dfrac{1}{4}\)

 => \(\left(\sin a+\cos a\right)^2=\dfrac{1}{16}\)

<=>\(\sin^2a+2\sin a\)\(\cos a+\cos^2a=\dfrac{1}{16}\)

<=>\(1+2\sin a\cos a=\dfrac{1}{16}\)

<=>\(2\sin a\cos a=-\dfrac{15}{16}\)

Hay \(\sin2a=\dfrac{-15}{16}\)

Bài 1:

Uses crt;

Var i,n,dem:integer;

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

Begin

  Clrscr;

  Write('Nhap do dai cua day A khong qua 100 phan tu: ');readln(n);

  While n>100 do

  Begin

  Write('Nhap lai: ');

  readln(n);

  end;

  dem:=0;

  Writeln('Nhap ',n,' phan tu:');

  For i:= 1 to n do

  Begin

  Write('a[',i,'] = ');

  readln(a[i]);

  If a[i] mod 2 = 1 then inc(dem);

  end;

  Writeln('Day co ',dem,' phan tu le');

  readln;

End.

Bài 2:

Uses crt;

Var i,dem:integer;

      s:string;

Begin

Clrscr;

Write('Nhap S khong qua 100 ki tu: ');readln(s);

While length(s)>100 do

Begin

Write('Nhap lai: ');

readln(s);

end;

dem:=0;

For i:= 1 to length(s) do If s[i] = ' ' then inc(dem);

Writeln('Xau vua nhap co ',dem,' ki tu trang');

readln;

End.