mình không biết đúng hk vì nó có nhiều cách giải nha
uses crt;
var a:array[1..5] of integer; i, j, t, dem : integer;
begin
clrscr;
writeln('nhap mang gom 5 so :');
for i:=1 to 5 do
begin
write('a[',i,']=');readln(a[i]);
end;
Còn không sử dụng mảng thì mình không biết xin lỗi nha hông giúp được bạn nhiều ròi