Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Câu 1:

uses crt;

var k,i:integer;

begin

clrscr;

write('Nhap k='); readln(k);

for i:=1 to k do

write(i:4);

readln;

end.

Câu 2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cac gia tri cua day la: ',t);

readln;

end.

uses crt;

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

n,i,dem,tbc:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so chan la: ');

dem:=0;

tbc:=0;

for i:=1 to n do
if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem);

tbc:=tbc+a[i];

end;

writeln;

writeln('So phan tu chan la: ',dem);

writeln('Trung binh cong cua cac so chan trong day la: ',tbc/dem:4:2);

readln;

end.

program boi_cua_3;

uses crt;

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

n,i:byte;

min:integer;

begin

clrscr;

write('nhap so luong phan tu cua mang: ');

readln(n);

for i:= 1 to n do

begin

write('nhap phan tu thu [',i,']= ');

readln(a[i]);

end;

min:=a[1];

for i:= 1 to n do

if min > a[i] then min:=a[i];

writeln('gia tri nho nhat cua day la: ',min);

readln

end.

Program HOC24;

var i,n: integer;

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

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do

begin

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

if a[i] mod 3=0 then t:=t+a[i];

end;

write('Tong cac phan tu chia het cho 3 la: ',t);

readln

end.

uses crt;

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

n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do

  if a[i] mod 3=0 then t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

const fi='input.txt'

var f1:text;

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

n,i,max:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(f1,max);

close(f1);

readln;

end.