Câu 4:

uses crt;

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

n,i,s:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

if (A[i]>50) and (A[i] mod 10=0) then s:=s+A[i];

end;

write('Tong cac phan tu la: ',s);

readln

end.

Câu 5:

uses crt;

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

n,i,t,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('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

t:=A[i];

A[i]:=A[j];

A[j]:=t;

end;

write('Day so sau khi xuat hien la: ');

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

readln

end.

`+` câu 4:

program bestanhvan;
uses crt;
var a:array[1..100] of integer;
n,i,d:integer;
begin
d:=0;
write('N = ');read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);

if (a[i]>50) and (a[i] mod 10=0) then
d:=d+a[i];
end;
writeln('tong cac phan tu la: ',d);
readln;
end.

`+` câu 5: 

program bestanhvan;
uses crt;
var a:array[1..100] of integer;
n,i,j,d:integer;
begin
write('N = ');read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] < a[j] then
begin
d:=a[i];
a[i]:=a[j];
a[j]:=d;
end;
for i:=1 to n do
writeln(a[i]:4);
readln;
readln;
end.