Tin học Mảng một chiều

ĐứcNhật!

Học sinh tiêu biểu
Thành viên
17 Tháng mười một 2017
1,525
3,788
529
Quảng Nam
Trung Học Phổ Thông Chuyên Nguyễn Bỉnh Khiêm
Em không chắc, chị xem thử :))
Mã:
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.
 
Top Bottom