viết chương trình nhập vào 1 mảng gồm n phần tử a, Đếm các số chẵn chia hết cho 3 trong mảng b, Tính tổng các số âm chia hết cho 7 trong mảng

xuanngoc26032015

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

Logo2021

program abc;

uses crt;

var

e: array[1..100] of real;

d;n;a;i: integer;

begin

a:=0;

writeln('Nhap n: '); readln(n);

for i:=1 to n do;

begin

writeln('Nhap so thu',i); readln( e[i] );

end;

for i:=1 to n do;

begin

if e[i] mod 6=0 then a:=a+1;

end;

for i:=1 to n do;

begin

if e[i] <0 and e[i] mod 7=0 then d:=d+e[i]

writeln('cac so chan chia het cho 3la: ',a);

writeln('tong cac so am chia het cho 7 la ',d)

readln;

end.

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

ichigo2532

uses crt;
var a:array[1..1000000] of longint;
n,i,d,s:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap gia tri phan tu thu ',i,': '); readln(a[i]);
if (a[i] mod 6=0) then inc(d);
if (a[i]<0) and (a[i] mod 7=0) then inc(s,a[i]);
end;
writeln('Co ',d,' phan tu la so chan va chia het cho 3');
writeln('Tong cac so am chia het cho 7: ',s);
readln;
end.

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

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

Có hỗn hợp A gồm Al và kim loại R hóa trị 2.Nếu cho 8,4g A vào dung dịch HCl dư thì các kim loại tan hết và có 8,96 lít khí thoát ra (đktc).Nếu cho 5g R vào 200ml HCl 2M thì kim loại không tan hết.Xác định tên của R

Một phân số có tử số nhỏ hơn mẫu số là 8. Nếu thêm 2 đơn vị vào tử số và bớt mẫu số đi 3 đơn vị thì ta được phân số bằng 3/4 . Tìm phân số đã cho.

Hướng dẫn cách giải tích phân này giúp mình với ạ Mình đang cần gấp!!!

Trước cách mạng 1917, nước Nga không tồn tại mâu thuẫn nào?

Sau khi chính quyền Xô Viết được thành lập, trong hoàn cảnh khó khăn, chính quyền Xô viết đã thực hiện biện pháp gì để đối phó?

Khí A thu được khi cho 87 gam MnO2 tác dụng với axit clohiđric đặc, dư. Dẫn A vào 500ml dung dịch NaOH 5M (D = 1,25 g/lml), thu được dung dịch B. Tính nồng độ phần trăm, nồng độ mol của các chất trong dung dịch B. Biết thể tích dung dịch thay đổi không đáng kể.

ghi danh từ trong câu: Hôm nay, học sinh thi Tiếng Việt mình cho 5sao ko sao chép hay khác nhé thank you các bn !!!!!! :))))

1)Bài tap tình huong : Trong quá trình đào đat đe làm móng xây nhà , ông an phát hien đuoc mot chiec bình co đang nam duoi đat nhà mình . Có nguoi bao đo đào đuoc duoi đat không biet so huu thuoc ve nhà nuoc . Co nguoi bao đo đào đuoc duoi đat nhà mình là cua mình không phai nop cho ai het? Theo em chiec bình co đó có thuoc ve ông An hay không ? Vì sao? GIUP MINH VS A

Cho mặt cầu(s) : x^2+(y-1)^2+(z+1)^2=4 a tìm tâm bán kính b viết (a) tiếp xúc (s) tại H(0,-1,-1) C viết (b)\\ (d) x+2y+2z-1=0 và tiếp xúc (s)

60 điểm : Chỉ cần giúp mik bài 4 thôi :

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