38. Đoàn Nguyễn Minh Tú
Hỏi từ APP VIETJACK
Viết chương trình cho bài toán sau: Nhập vào một dãy số nguyên. Tính tổng các phần tử qua nhập .
Quảng cáo
1 câu trả lời 308
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.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
Gửi báo cáo thành công!
