Viết công thức nhập vào 5 số từ bàn phím. Tìm và in ra tổng các số lẻ. Trong con chương trình có sử dụng hàm tìm và tính tổng các số lẻ trong 5 số.

0 bình luận về “Viết công thức nhập vào 5 số từ bàn phím. Tìm và in ra tổng các số lẻ. Trong con chương trình có sử dụng hàm tìm và tính tổng các số lẻ trong 5 số.”

1. program ct;

   uses crt;

   type M=array[1..1000] of integer;

   var A:M;

         i:integer;

   function N(x:M):integer;

      var S:longint;

   begin clrscr;

        S:=0;

      for i:=1 to 5 do

         if x[i] mod 2=1 then S:=S+x[i];

         N:=S;

   end;

   begin

      for i:=1 to 5 do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        N(A);

      writeln(‘Tong cac so le: ‘,N(A));

   readln;

   end.  

   Bình luận

2. program ct;

   uses crt;

   type M=array[1..1000] of integer;

   var A:M;

         i:integer;

   function N(x:M):integer;

      var S:longint;

   begin clrscr;

        S:=0;

      for i:=1 to 5 do

         if x[i] mod 2=1 then S:=S+x[i];

         N:=S;

   end;

   begin

      for i:=1 to 5 do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        N(A);

      writeln(‘Tong cac so le: ‘,N(A));

   readln;

   end.  

   Học tốt!

   Bình luận