viết chương trình nhập từ bàn phím các phần tử nguyên của mảng một chiều thực hiện đưa ra màn hình tổng các phần tử chẵn và phần tử lẻ
viết chương trình nhập từ bàn phím các phần tử nguyên của mảng một chiều thực hiện đưa ra màn hình tổng các phần tử chẵn và phần tử lẻ
uses crt;
var A:array[1..1000] of integer;
i,n,tle,tchan: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 tchan:=tchan+A[i]
else tle:=tle+A[i];
end;
write(‘Tong cac phan tu chan la: ‘,tchan);
writeln;
write(‘Tong cac phan tu le la: ‘,tle);
readln
end.
=))
program Project1;
var a:array [1..100] of integer;
n, i: integer;
le: integer;
begin
write(‘Nhap so phan tu co trong mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap vao phan tu thu A[‘,i,’]: ‘); readln(A[i]);
end;
le:=0;
for i:=1 to n do
begin
if (A[i] mod 2 <> 0) then
le:=le+A[i];
end;
writeln(‘Tong cac phan tu le la ‘, le);
readln;
end.