Tin học pascal: kiểu mảng và tệp

[Lê Thị Hàn]

[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.

nhập vào tệp một dãy số nguyên, đếm xem trong dãy có bao nhiêu số nhỏ hơn 10, sắp xếp các số đó chẵn lên trên, lẻ xuống dưới, xuất kết quả ra ở pascal.

 

[Trâm Nguyễn Thị Ngọc]

nhập vào tệp một dãy số nguyên, đếm xem trong dãy có bao nhiêu số chẵn và số lẻ, xuất ra ở pascal.

thường thì làm việc với tệp có 3 cách, mà mình không biết nhập một dãy số ở tệp kiểu gì, cũng chỉ thêm được số lượng phần tử chứ không biết làm kiểu gì, kiểu nhập từng số ý, ai biết chỉ mình với

Var
 fi:text;d,i,n,d1:integer;
 a:array[1..100] of integer;
Begin
 assign(fi,'bai.inp');reset(fi);
 readln(fi,n);
 For i:=1 to n do read(fi,a[i]);
 d:=0;d1:=0;
 For i:=1 to n do
   if a[i] mod 2=0 then d:=d+1
   else d1:=d1+1;
 Writeln('cac so le co trong mang la:',d1);
 writeln('cac so chan co trong mang la:'d);
 Close(fi);
 readln
End.

Em không biết tệp tên gì nên em đặt là bai.inp ạ, có gì chị thay cái tên là được. bình thường em sẽ sd tệp để nhập và xuất luôn mà h chị nói sd để nhập thôi nên em làm thế này, chị check hộ em, không biết thiếu gì không ạ