Bài 1:

Mô tả thuật toán:

b1: tăng i;

b2: nếu n chia hết cho i thì tăng d;

b3:nếu i<= n thì quay lại b1;

b4:nếu d=2 thì n là snt;

viết c trình:

var i,n,d:longint;

begin

read(n);

for i:=1 to n do

   if n mod i =0 then d:=d+1;

if d=2 then write(n,' la so nguyen to')

else write(n,' k phari snt');

Bài 2

var a:array[0..100000] of longint;

min,max,i,n:longint;

begin

read(n);

min:=maxlongint;

max:=-maxlongint;

for i:=1 to n do

begin

     if a[i]>max then max:=a[i]

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

end;

write('diem lon nhat:',max)

write('diem nho nhat',min);

end.

Bài 3:

Mô tả thuật toán:

b1:nhập n;

b2:tăng i 1 đơn vị

b3: nhập a[i];

b4:nếu i<=n thì quay lại b2;

b5:gán max=a[1],min=a[1];

b6:choi=0;

b7:tăng i 1 đơn vị

b6:nếu a[i] nhỏ hơn min thì gán min=a[i]

b7:nếu a[i] lớn hơn max thì gán max=a[i]

Bài 4.

var i,n:longint;

s:int64;

a:array[0..100000]of longint;

begin

read(n);

for i:=1 to n do

begin

  read(a[i]);

  s:=s+a[i];

end;

write(s/n);

end.