[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
)
Program Tim_so;
Uses crt;
Var i,n,m: longINT;
A: array[1..5000] of integer;
Begin
clrscr;
Write('Nhap n: '); readln(n);
For i:= 1 to n do
Begin
Write('Nhap phan tu thu ',i,' : '); readln(A[i]);
End;
If A[i]>25 and A[i]<40 then m:=A[i];
Write('Cac so lon hon 25 va nho hon 40 la: ', A[i]:5);
Readln
End.
Sửa lại chỗ nãy nhé !
Writeln('Cac so lon hon 25 va nho hon 40 la:');
For i:=1 to n do
If (A[i] > 25) and (A[i] < 40 ) then writeln(A[i]:5);