Viết chương trình nhập vào n số nguyên. Tính và in ra màn hình tổng các số chẵn trong n số nguyên vừa nhập
2 câu trả lời
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('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
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac so chan trong day so la: ',t);
readln;
end.
Program BTH;
Uses crt;
var a,b,d,e:longint;
procedure BTH;
Begin
for d:=1 to a do
Begin
write('Nhap so thu ',d,' cua day: ');readln(e);
If e mod 2=0 then
b:=b+e;
end;
end;
Begin
clrscr;
Write('Nhap so phan tu co trong day la: ');readln(a);
b:=0;
BTH;
Writeln('Tong so chan co trong day la: ',b);
readln;
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
