Var maxam,i,n,cs : Integer;

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

Begin

Write (' nhap n : ');

Readln(n);

For i:= 1 to n do Begin

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

Readln(A[i]);

end;

For i:= 1 to n do If A[i]<0 then maxam:=A[i];

Maxam:=A[1]; cs:=1;

For i:= 2 to n do begin

If (A[i]<0) and ( maxam<A[i]) then

begin

Maxam:=A[i];

cs:=i;

end;

end;

Writeln (' pt am lon nhat trong mang : ',Maxam);

Writeln(' vi tri cua ptu do la :',cs);

Readln;

end.

a.Var n:integer;

Begin

Repeat

Write (' so hs cua lop :');

Readln (n);

Until (n>=1) and (n<=45);

Readln;

end.

Var n:integer;

Begin

Write (' nhap so tien : ');

Readln(n);

Write ( n div 50,' to 50n ');

n:=n mod 50;

Write ( n div 20,' to 20n ');

n:=n mod 20;

Write ( n div 5,' to 5n ');

n:=n mod 5;

Write ( n div 2,' to 2n ');

n:=n mod 2;

Write ( n div 1,' to 1n ');

n:=n mod 1;

Readln;

end.

Var i,n:integer;

S:real;

Begin

Write (' nhap n :');

Readln(n);

S:=1;

For i:= 1 to n do S:= S+1/i;

Writeln (' tong S:',S);

Readln;

end.

Sx tăng dần:

Var i,S,i,j :integer;

A:array[1..10] of integer;

Begin

For i:= 1 to 5 do Begin

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

Readln(A[i]);

end;

For i:= 1 to n-1 do

For j:= i+1 to n do If A[i]>A[j] then

Begin

S:=A[i];

A[i]:=A[j];

A[j]:=S;

End;

Writeln (' day sau sx :');

For i:= 1 to 5 do Write (A[i]:5);

Readln;

end.

Sx giảm dần :

Var i,S,i,j :integer;

A:array[1..10] of integer;

Begin

For i:= 1 to 5 do Begin

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

Readln(A[i]);

end;

For i:= 1 to n-1 do

For j:= i+1 to n do If A[i]<A[j] then

Begin

S:=A[i];

A[i]:=A[j];

A[j]:=S;

End;

Writeln (' day sau sx :');

For i:= 1 to 5 do Write (A[i]:5);

Readln;

end.

Var i,n:integer;

t:real;

Begin

Repeat

Write (' nhap n =');

Readln(n);

Until n>1;

t:=0;

For i:= 1 to n-1 do If n mod i = 0 then t:=t+i;

If t=n then Writeln (n,' la so hoan hao ')

else (n,'khong phai la so hoan hao ');

Readln;

end.

Var i,n:integer;

S:real;

Begin

Write(' nhap n : ');

Readln(n);

S:=1;

For i:= 1 to n do S:= S+1/i*(i+1);

Writeln (' tong cac so :',S);

Readln;

end.

102000m                                         cách làm là:quãng đương từ HN đến HP là: 102 nhan vơi 1000000=102000000[mm] = 102000m

Cau 8:

Var i,n :integer;

Begin

Write(' nhap n = ');

Readln(n);

i:=1;

While i<=n do If n mod i=1 then Writeln (' cac so le <=',n,' la : ',i:3);

Readln;

end.