cho n và dãy số a1,a2,...,an hãy viết thuật toán đếm các số chẵn lẽ có trong dãy số hãy tính tổng các phần tử có trong dãy số

nd9x789

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 50 xem

1 trả lời

Thích Trả lời

l.lng70

program Min;
uses crt;
var A:array[1..1000] of integer;
tong,n,i,chan,le:integer;
begin
clrscr;
tong:=0;
writeln('Nhap n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i,': ');
readln(A[i]);
end;
for i:=1 to n do
begin
if (A[i] mod 2 = 0) then chan:=chan+1 else le:=le+1;
tong:=tong+A[i];
end;
writeln('So so chan la: ',chan);
writeln('So so le la: ',le);
writeln('Tong la: ',tong);
readln
end.

Em tham khảo nhé :D

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

bio.hliem

var n,c,l,s,i:longint;

a: array [1..1000] of longint;

begin

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

for i:=1 to n do

begin

write('A[',i,'] = '); read(a[i]);

if a[i] mod 2 = 0 then inc(c) else inc(l);

s:=s+a[i];

end;

writeln;

writeln('So chan la: ',c);

writeln('So le la: ',l);

write('Tong la: ',s);

readln;

end.

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

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

Nước Có sản lượng dầu khai thác lớn nhất hiện nay ở tây nam Á là

mẹ em có một tấm vải. lần thứ nhất mệ em cắt 1phan 5 tắm vảil.lần thứ 2 mẹ em cắt nhiều hơn lần thu nhất 1 phần 3 tấm vải.Hỏi cả hai lần mẹ em đã cắt bao nhiêu phần tấm vải.tấm vải còn lại bao nhiêu phần

Vì sao nói hoạt động giao thông vận tải và du lịch là thế mạnh của vùng bắc trung bộ ? Giúp e với ạ

Một tổ có 11 học sinh phát biểu xây dựng bài. Có 1 hs phát biểu 4 lần. Các bạn khác đều phát biểu nhưng ít hơn. Chứng minh có ít nhất 4 bạn phát biểu có số lần bằng nhau. Mong mọi người quan tâm.

một số sách khi xếp thành từng bó 8 cuốn , 15 cuốn ,20 cuốn đều thừa 5 cuốn .Biết số sách trong khoảng từ 300 đến 400 cuốn . Tính số sách

Tí lệ dân thành thị tang nhanh ở khu vực mĩ la tinh phát từ nguyên nhân sau xa nào sau đây A. Các chủ trang trại chiếm phần lớn đât canh tác B. Công nghiệp ở các thành thị phát triển mạnh mẽ C. Tỉ suất sinh ở các vùng nông thôn quá cao D. Vùng nông thôn tình hình an ninh không được đảm bảo

câu 1: nêu động lực đẩy dòng mạch gỗ và dòng mạch câu 2: phân tử O2 giải phóng trong quá trình quang hợp có nguồn gốc từ đâu ? giải thích ? Các bạn làm giúp mình 2 câu trên với ạ mình cảm ơn

Câu 2: Bài trình chiếu là gì? Hãy cho biết chức ăng chính của phần mềm trình chiếu và một vài ứng dụng của phần mềm trình chiếu? Câu 3: Nếu lợi ích xã hội tin học hóa trong "thời đại 4.0" Ai giúp chép câu tự luận với ạ Câu 2 Câu 3

B Viết đoạn văn nghị luận xã hội với chủ đề những con người lao động thầm lặng trong cuộc sống

Tìm giá trị thực của tham số m để f(x) =-x^3-3mx^2+3(m+1)x+2019 đạt cực đại tại x =2

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