Viết chương trình tính tổng các số lẻ trong dãy số gồm N số được nhập vào từ bàn phím

0 bình luận về “Viết chương trình tính tổng các số lẻ trong dãy số gồm N số được nhập vào từ bàn phím”

1. Program tong_le;

   Var A:array[1..100] of integer;

         i,n,S:integer;

   Begin

      FOr i:=1 to n do

         Begin

            Writeln(‘A[‘,i’]=’);Reafln(A[i]);

         End;

      Write(‘Tong cac so le la: ‘);

      For i:=1 to n do If A[i] mod 2<>0 then S:=S+A[i];

      Write(A[i]);

   Readln;

   End.

   Chúc bạn học tốt nhé

   Bình luận