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

phamminhhoa.vng

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 13 xem

1 trả lời

Thích Trả lời

phamthihoanglan.280216

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.

Vote (0) Phản hồi (0) 2 năm trước

banana

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Bài 1 :Tính biểu thức sau bằng cách thuận tiện nhất : a. (6 x 8 – 48) : (10 + 11 + 12 + 13 + 14 + 15) b. 32764 - 2467 + 236 + 3467 Bài 2: Tìm: 72 - x : 4 = 16 72 : x – 3 = 5 Bài 3: Tính nhanh: a, 45 x 5 + 45 x 4 + 45 b, 18 x 7 + 18 x 16 – 18 x 14 + 18 c, 25 x 18 x 4 x 2 Bài 4: An nghĩ một số. Nếu gấp số đó lên 3 lần rồi cộng với 15 thì được 90. Tìm số An đã nghĩ. Bài 5: Một cửa hàng cây cảnh có 48 cây quất. Sau một ngày bán chỉ còn lại \frac{1}{6} số cây quất. Hỏi: a) Cửa hàng còn lại bao nhiêu cây quất? b) Đã bán bao nhiêu cây quất?

giải thích câu nói"Nơi nào có đoàn kết nơi đó có chiến thắng" của Publilius

Giúp mình với. Jxuduxulxoydtistizfizgjzifztistizti

.............................................

the fish are dead because the water is pollution

..................................

......................................

nêu dặc điểm vị trí địa lí,địa hình bờ biển châu phi,với đặc điểm đó khí hâu châu phi có đặc điểm gì nổi bật ai đúng sẽ vote 5 sao và hay nhất

.......................................

giải bất phương trình và biểu diễn tập nghiệm trên trục số: x+6/x+3 > 0

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến