Viết chương trình tương ứng:
Nhập từ bàn phím một mảng số nguyên dương gồm N phần tử (N<=200): A 1,
A 2 ,…, A n . In ra màn hình kết quả đã xử lý:
Tính tổng các số chẵn có trong dãy.
Viết chương trình tương ứng:
Nhập từ bàn phím một mảng số nguyên dương gồm N phần tử (N<=200): A 1,
A 2 ,…, A n . In ra màn hình kết quả đã xử lý:
Tính tổng các số chẵn có trong dãy.
Program Mang_Tong_Chan;
uses crt;
var i,n:byte;
M:array[1..100] of integer;
tong:longint;
begin
write(‘Nhap so phan tu cua day: ‘);readln(n);
for i:=1 to n do
begin
write(‘M[‘,i,’]’); readln(M[i]);
end;
tong:=0;
for i:=1 to n do if M[i] mod 2 =0 then
tong:=tong+M[i];
write(‘Tong cac so chan trong day la: ‘,tong);
readln
end.
Bạn doantranghmy làm thiếu
program Tin_hoc;
uses crt;
var i,n,tong:integer;
a:array [1..200] of integer;
begin
clrscr;
write(‘Nhap n <= 200: ‘);readln(n);
while n > 200 do
begin
write(‘Nhap lai: ‘);readln(n)
end;
writeln(‘Nhap ‘,n,’ so nguyen:’);
tong:=0;
for i:= 1 to n do
begin
readln(a[i]);
if a[i] mod 2 = 0 then tong:=tong+a[i]
end;
writeln(‘Tong cac so chan co trong mang la: ‘,tong);
readln;
end.