Có làm tròn kết quả ko thế bạn ơi
program bt;
uses crt;
var i,dem:integer;
A:array[1..15] of real;
Max,S:real;
begin
clrscr; Max:=-10000; dem:=0;
For i:=1 to 10 do read(A[i]);
S:=A[1]+A[3]+A[5]+A[7]+A[9];
For i:=1 to 10 do if A[i]>=Max then Max:=A[i];
For i:=1 to 10 do if A[i]>5 then dem:=dem+1;
writeln('Tong cac so o vi tri 1,3,5,7,9 la ',S:0:2);
writeln('So lon nhat: ',Max:0:2);
writeln('Co ',dem,' so >5');
readln;
readln;
end.