Question

1 viết chương trình tìm số lớn nhất trong dãy số có N số với N nhập từ bàn phím

2 viết chương trình tính tổng các số chẵn trong dãy số có N số với N nhập từ bàn phím

3 viết chương trình nhập vào 1 số nguyên N kiểm tra N có phải là số nguyên tố không

4 cho 1 dãy số A có N số viết chương trình in ra các số nguyên tố có trong dãy

Answer 1

1.

Program HOC24;

var max,i,n: integer;

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

begin

readln(n);

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

readln;

max:=0;

for i :=1 to n do if a[i]>max then max:=a[i];

write(max);

readln

end.

Answer 2

2.

Program HOC24;

var i,n: integer;

t: longint;

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

begin

readln(n);

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

readln;

t:=0;

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

write(t);

readln

end.

Answer 3

3.

Program HOC24;

var n: integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

readln(n);

if nt(n) then write(n,' la so nguyen to') else write(n,' khong phai so nguyen to');

readln

end.

Answer 4

Program HOC24;

var i,n: integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

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

begin

readln(n);

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

readln;

for i :=1 to n do if nt(a[i]) then write(a[i],' ');

readln

end.