Viết các chương trình sau: Nhập vào một dãy gồm n phần tử, n nhập từ bàn phím a) tính tổng các số âm trong dãy b)tính tổng các số chia hết cho 2 trong dãy

185650315942277

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

darkness24012001

program phuongt;
uses crt;
var A: array[1..500] of integer;
n, s, k, i: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
k:=0;
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
if A[i]<0 then s:=s+A[i];
if A[i] mod 2 = 0 then k:=k+A[i];
end;
writeln('Tong cac so am: ', s);
write('Tong cac so chia het cho 2: ', k);
readln
end.

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

huynhhuyenvp

uses crt;
var n,i,s,t:longint;a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i]<0 then inc(s,a[i]);
if a[i] mod 2=0 then inc(t,a[i]);
end;
writeln('Tong cac so am: ',s);
write('Tong cac so chia het cho 2: ',t);
readln;
end.

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

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

Xét phản ứng thuận nghịch sau: 2SO2 + O2 ⇄ 2SO3 ( ΔH > 0) Hãy cho biết sự chuyển dịch cân bằng theo các điều kiện sau a. Giảm nhiệt độ b. Giảm áp suất . c. Tăng nhiệt độ. d. Tăng áp suất . e. Tăng chất xúc tác mn giúp mk với ạ >.<

Help me !!!! Tính bằng cách thuận tiện : 1988 x 1996 + 1997 x 11 + $\frac{1985}{1997}$ x 1996 - 1995 x 1996 Còn nữa, nhóm mik đg tueeyr thành viên chăm cày chút, bn nào mún thì vô nhóm mik nha ! Giúp mik với !!!!!!!!!!!

LÀM LOGO có chữ ARt90s Y/c: + Có cánh + Nền mây pồng pềnh + Cute + Chữ ARt90s nổi bật lên + Tone màu: trắng, hồng, xanh pát teo

Chon dap an dung ho minh cam on moi nguoi

ở đồng bằng ven vịnh Mehico mưa nhiều với thảm thực vật nào?

Giải hộ ạ phần rút gọn ạ Cần gấp

Vẽ monsiuer tuna(chỉ nhận tranh ms vẽ) Tus này chỉ dành cho Fan cá ngừ trắng:> Vẽ xấu nhưng mong mn nhận ra đây là ai:>> :3

vẽ mầm bối rối NL : Sao lại bị khoá tài khoản ak

Viết chữ :"Xin lỗi, được chưa !!!" Bằng bút mực, viết thanh đậm

Câu hỏi : Hợp 2 lực F1 và F2 trong trường hợp nào sau đây vẽ đúng :

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