viết chương trình: Nhập vào mạng, đếm xem trong mảng đó có bao nhiêu phần tử lẻ. Tìm tổng các phần tử trong mảng.

0 bình luận về “viết chương trình: Nhập vào mạng, đếm xem trong mảng đó có bao nhiêu phần tử lẻ. Tìm tổng các phần tử trong mảng.”

1. program Nhap_mang;

   uses crt;

   var i,n,d,S:integer;

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

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     d:=0; S:=0;

       for i:=1 to n do 

   begin

      if A[i] mod 2=1 then d:=d+1;

      S:=S+A[i];

   end;

     writeln(‘co’,d,’ so phan tu le’);

     writeln(‘tong la:’,S);

   readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận

2. program ct;

   uses crt;

   var i,n,d,S:integer;

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

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     d:=0; S:=0;

       for i:=1 to n do 

   begin

      if A[i] mod 2=1 then d:=d+1;

      S:=S+A[i];

   end;

     writeln(‘co’,d,’ so phan tu le’);

     writeln(‘tong la:’,S);

   readln

   end.

   Bình luận