Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT xuất các số chẳn ra màn hình.
2 câu trả lời
program sochan;
uses crt;
var f:text;
A:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
Assign(f,'Lop_11A.TXT'); reset(f);
readln(f,n);
for i:=1 to n do
begin
readln(f,A[i]);
if A[i] mod 2=0 then write(A[i],' ');
end;
close(f);
readln;
end.
uses crt;
var f:text;
a:array[1..1000]of longint;
n,i:longint;
begin
clrscr;
assign(f,'11A.TXT');reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
