Viết chương trình thực hiện công việc nhập 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ có trong mảng A
Help me :(((
Viết chương trình thực hiện công việc nhập 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ có trong mảng A Help me :((
By Alice
Uses Crt;
Var a:array[1..1000] of integer;
i,n,tl:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N = ‘); Readln(n);
For i:= 1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
For i:= 1 to n do If a[i] mod 2 <> 0 then tl:=tl+a[i];
Writeln(‘Tong cac so le trong day la: ‘,tl:3);
Readln
End.
uses crt;
var lst:Array[1..10] of integer;
i,tong:integer;
Begin
clrscr;
for i:=1 to 10 do
Begin
write(‘Phan tu thu ‘,i,’ = ‘);
readln(lst[i]);
if lst[i] mod 2 = 1 then tong:=tong+lst[i];
end;
write(‘Tong la: ‘,tong);
readln;
end.