Viết chương trình nhập 1 dãy số nguyên. tính tổng của dãy đó. tính tổng số chẳn

366

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 5)

Câu 59: Viết chương trình nhập 1 dãy số nguyên. tính tổng của dãy đó. tính tổng số chẳn

Lời giải:  

program tinh_tong;

uses crt;

var i,n,t:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('tong cua day la: ',t);

t:=0;

for i:=1 to n do

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

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

readln;

end.

Đánh giá

0

0 đánh giá