giúp e giả bài tin này với ạ
viết chương trình tạo ra 1 tệp có tên MAX.TXT. sau đó tính tất cả các phần thoả mãn là số lẻ và chia hết cho 3 trong mảng 1 chiều bất kì. Sau đoa ghi mảng đó, các phần tử thoả mãn điều kiện và ghi vào tệp MAX.TXT
giúp e giả bài tin này với ạ
viết chương trình tạo ra 1 tệp có tên MAX.TXT. sau đó tính tất cả các phần thoả mãn là số lẻ và chia hết cho 3 trong mảng 1 chiều bất kì. Sau đoa ghi mảng đó, các phần tử thoả mãn điều kiện và ghi vào tệp MAX.TXT
program phuongt;
uses crt;
var A: array[1..500] of integer;
op: text;
i, n, d: integer;
begin
clrscr;
assign(op, ‘E:\MAX.txt’);
rewrite(op);
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
if (A[i] mod 2 <> 0) and (A[i] mod 3 = 0) then d:=d+1;
end;
writeln(op, ‘Mang vua nhap:’);
for i:=1 to n do write(op, A[i]:3);
writeln(op);
writeln(op, ‘So phan tu thoa mam: ‘, d);
close(op);
write(‘Mo file de xem ket qua’);
readln
end.
uses crt;
var f:text;
a:array[1..100] of integer;
n,i,d:integer;
begin
clrscr;
assign(f,’C:\MAX.txt’);
reset(f);
d:=0;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
write(f,’Day vua nhap: ‘);
for i:=1 to n do write(f,a[i]:4);
for i:=1 to n do if (a[i]mod 2=1)and(a[i] mod 3=0) then inc(d,1);
write(f,’So phan tu TM: ‘,d);
close(f);
readln;
end.