Viết thuật toán nhập N và dãy số từ a1 => aN, tính tổng các số chẵn có trong dãy. Giúp e vs ạ, e ngủ nhất phần này🥺🥺😭😭🙏🙏🙏

tranxuantien31072002

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

shinran909

uses crt;

var a: array [1..100] of integer;

n, i, tsc, tsl: integer

begin

clrscr;

write('So phan tu cua mang la: '); readln(n);

while n<1 do begin

write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);

end;

for i:=1 to n do begin

write('So thu ',i,' la: '); readln(a[i]);

end;

tsc:=0;

tsl:=0;

for i:=1 to n do

if a[i] mod 2 =0 then tsc:=tsc+a[i]

else tsl:=tsl+a[i];

writeln('tong cac so chan la: ',tsc);

write('tong so cac so le la: ',tsl);

readln;

end.

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

3205728256319930

uses crt;

var i,n,tong:integer;

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

begin

clrscr;

writeln('Nhap do dai mang ( n>=1) : ');readln(n);

while n<1 then

begin

write('Nhap lai: ');

readln(n)

end;

writeln('Nhap ',n,' phan tu cua mang:');

tong:=0;

For i:= 1 to n do

begin

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

readln(a[i]);

If a[i] mod 2 = 0 then tong:=tong+a[i]

end;

writeln('Tong cac phan tu chan trong mang vua nhap la: ',tong);

readln;

end.

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

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

lm hộ mik nhé thank máy bẹn cute hạt me

bạn nào học giỏi giải hộ mk với :) ctlhn

Viết 1 đoạn văn (từ 10 dòng trở lên) nêu cảm nhận của em về bác hồ. Ko đc chép mạng. Các bạn làm hộ mik vs.

so sánh 3^500 và 7^500 3^21 và 2^31 2^91 vaf 5^35 54^4 vaf 21^12

Mắc R1 nt R2 vào nguồn điện có U ko đổi thì Itd=0,4A,còn nếu mắc R2//R1 vào nguồn điện đó thì Itd=0,8A.tính tỉ số R1/R2

các bạn giúp mình giải bài tập với ạ!

Cho mình hỏi nhanh tí nè Chuyển câu này sang mệnh đề wish You don't have many students in your school mình chuyển thành I wish I had more students in my school mà mấy bạn mình lại viết I wish I had many students in my school thế cái nào đúng cái nào sai ạ

Mọi ng ơi cho em 5 câu toán đại mẫu để em lm với ạ bài DÃY TỈ SỐ BẰNG NHAU. Một băif toán giải thôi . Vì mai em ktra 15 nên mn cho em bài mẫu để em lm thử Cảm Ơn Anh Chị

tìm bptt và nêu tác dụng ở câu thơ sau: tổ quốc tôi ba nghìn năm cây số biển chứ S bao đời hình chiếc mỏ neo neo lịch sử qua thăng trầm biển động (Lưu ý : viết thành một đoạn văn cảm thụ từ 10-15 câu nêu đầy đủ tác dụng, ý nghĩa, cảm xúc)

làm cho e bài 6 nhé em chỉ cần cách trình bày đúng thôi☺️

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