Nhập một dãy số nguyên có N phần tử. Xuất ra màn hình dãy số vừa nhập Tính tổng các phần tử là số chẵn trong dãy trên và xuất ra kết quả màn hình
1 câu trả lời
uses crt;
var A:array[1..1000] of integer;
N,i,tong:integer;
begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2 = 0 then tong:=tong+A[i];
end;
writeln;
for i:=1 to N do write(A[i]:4);
writeln;
write('Tong cac so chan la: ',tong);
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
