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 :((

0 bình luận về “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 :((”

1. • • trungnghia8034
     • 15:26

     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.

   Bình luận

2. 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.

   Bình luận