Câu 1:

Cú pháp For..do: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Cú pháp While..do: While <điều kiện> do <câu lệnh>;

Câu 2:

uses crt;

var A:array[1..100] of longint;

n,i,max,min,d,dem,sc,sl:longint;

function nt(var n:longint):boolean;

var i:longint;

ok:boolean;

begin

ok:=true;

for i:=2 to n-1 do

if n mod i=0 then ok:=ok and false;

if n<2 then nt:=false else nt:=ok;

end;

begin

clrscr;

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

for i:=1 to n do

begin

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

if A[i] mod 2= 0 then

begin

dem:=dem+1;

sc:=sc+A[i];

end

else

begin

d:=d+1;

sl:=sl+A[i];

end;

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('a) So lon nhat: ',max);

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

writeln('c) Trung binh cong cac so chan: ',sc/dem:0:2);

writeln('d) Cac so nguyen to co trong day: ');

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

writeln('e) Cac so chan co trong day: ');

for i:=1 to n do if A[i] mod 2=0 then write(A[i],' '); writeln;

writeln('h) Trung binh cong cac so le: ',sl/d:0:2);

readln

end.

`#Pascal`

`1)`

`-` Lặp với số lần biết trước ( lặp xuôi ) 

`->` For < biến đếm > := < giá trị đầu > to < giá trị cuối > do < câu lệnh > ;

`-` Lặp với số lần biết trước ( lặp ngược ) 

`->` For < biến đếm > := < giá trị cuối > downto < giá trị đầu > do < câu lệnh > ;

`-` Lặp với số lần chưa biết trước ( xét điều kiện trước ) 

`->` While < điều kiện > do < câu lệnh > ;

`-` Lặp với số lần chưa biết trước ( xét điều kiện sau ) 

`->` Repeat < câu lệnh > Until < điều kiện > ;

`2)`

uses crt;
 // ham so nguyen to
 function prime(n : longint) : boolean ;
     var i : longint ;
    begin
    //xet n < 2 hay khong
    if n < 2 then prime := False 
        else prime := true ;
    // xet voi n > 2
    for i := 2 to trunc(sqrt(n)) do
        if n mod i = 0 then
             begin
            prime := false ;
            break ;
             end;
    end ;
 var a : array[1..100] of longint ;
 i, n, sc,sl, dc, dl, max ,min : longint;
    begin
clrscr;
 // nhap do dai mang
  write('--n: ');readln(n);
   write('----nhap mang: ');
  //nhap mang
 for i := 1 to n do read(a[i]) ;
 // tinh tbc,max,min bang cach duyet mang 
 max := a[1] ; min := a[1];
 for i := 1 to n do 
     begin
    // max
    if a[i] > max then max := a[i];
    //min
    if a[i] < min then min := a[i];
    // xet chan,le
    if a[i] mod 2 = 0 then 
         begin
        sc := sc + a[i];
        dc := dc + a[i];
         end 
    else // le 
         begin
        sl := sl + a[i];
        dl := dl + a[i];
         end;
     end ;
    //in max, min
 writeln('--max: ',max,', min: ',min);
    // in tbc chan, le 
    writeln('--TBC cac so chan la: ',sc/dc:3:1);
    writeln('--TBC cac so le la: ',sl/dl:3:1);
    // in cac so chan
    //chan 
 write('--Cac so chan: ');
 for i := 1 to n do
    if a[i] mod 2=0 then write(a[i],' ');
    writeln;
    //le
 write('--Cac so le: ');
 for i := 1 to n do
    if a[i] mod 2<>0 then write(a[i],' ');
    writeln;
    // cac so nguyen to
 write('--Cac so nguyen to la: ');
  for i := 1 to n do
    IF prime(a[i]) then write(a[i],' ');
    writeln;
 writeln('----Ket thuc ----');
    end.