Tin học Bài tập Pascal

[Hoàng Đức Thành]

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

Các anh chị giúp em làm 2 bài này với ạ :
Bài 1 : Nhập dữ liệu vào cho mảng từ tệp bai1.inp ghi kết quả vào tệp bai1.out là các phần tử chẵn.
file bai1.inp
5
12 5 4 7 9
Bài 2 : Nhập dữ liệu vào cho mảng từ tệp bai3.inp ghi kết quả vào tệp bai1.out là các phần tử chẵn.
file bai3.inp
12 5 4 7 9

 

[02-07-2019.]

Các anh chị giúp em làm 2 bài này với ạ :
Bài 1 : Nhập dữ liệu vào cho mảng từ tệp bai1.inp ghi kết quả vào tệp bai1.out là các phần tử chẵn.
file bai1.inp
5
12 5 4 7 9
Bài 2 : Nhập dữ liệu vào cho mảng từ tệp bai3.inp ghi kết quả vào tệp bai1.out là các phần tử chẵn.
file bai3.inp
12 5 4 7 9

Bài 1:

Var a:array[1..100000] of int64;
    i,n:longint;
Begin
      Assign(input,'bai1.inp');reset(input);
      Assign(output,'bai1.out');rewrite(output);
      Readln(n);
      For i:=1 to n do
      Begin
       Read(a[i]);
       If a[i] mod 2=0 then write(a[i],' ');
      End;
End.

Bài 3:

Var
    x:longint;
Begin
      Assign(input,'bai1000.inp');reset(input);
      Assign(output,'bai1000.out');rewrite(output);
    While not eof(input) do
      Begin
       Read(x);
       If (x mod 2=0) and (x<>0) then write(x,' ');
      End;
End.