Giúp em vs đang gấp lắm ạ. Viết chương trình để đọc dãy số nguyên. Hãy ghi vào tệp ketqua.txt các số là số chẵn
2 câu trả lời
Const Fo='KETQUA.TXT';
Var g: text;
A: array[1..1000] of longint;
n,i: longint;
Begin
Assign(g,Fo); Rewrite(g);
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
For i:=1 to n do
If A[i] mod 2 = 0 then Write(g,A[i],' ');
Close(g);
End.
const fi='dulieu.txt';
fo='ketqua.txt';
var i:integer;
Dem:byte;
f1,f2:text;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
Dem:=0;
for i:=1 to n do
begin
read(f1,a[i]);
If a[i] mod 2 = 0 then inc(dem);
end;
writeln(f2,dem);
close(f1);
close(f2);
end.
Câu hỏi trong lớp
Xem thêm
