Viết chương trình nhập xuất mảng ngược n số nguyên 1 tính tổng mảng vừa nhập 2 tính tổng các số chẵn lẻ trong mảng 3 xuất các số chẵn lẻ trong mảng

0 bình luận về “Viết chương trình nhập xuất mảng ngược n số nguyên 1 tính tổng mảng vừa nhập 2 tính tổng các số chẵn lẻ trong mảng 3 xuất các số chẵn lẻ trong mảng”

1. uses crt;

   var A: array [1..50] of integer;

   i,t,tc,tl,n: integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu: ‘); 

   readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);

   readln(A[i]);

   end.

   {Cau 1: Tinh tong mang vua nhap}

   for i:=1 to n do

   t:=t+A[i];

   {Cau 2: Tinh tong cac so chan le}

   for i:=1 to n do

   if (A[i] mod 2 = 0) then tc:=tc+A[i]

   else tl:=tl+A[i]

   {Cau 3: Xuat ket qua ra man hinh}

   writeln(‘Ket qua: ‘);

   writeln(‘Tong cac phan tu: ‘,t);

   writeln(‘Tong cac phan tu chan: ‘,tc);

   writeln(‘Tong cac phan tu le: ‘,tl);

   readln

   end.

   Bình luận

2. program a;

   uses crt;

   var A:array[1..1000] of integer;

         i,n,S,S1,S2:integer;

   begin clrscr;

      writeln(‘Nhap so phan tu n: ‘); readln(n);

      for i:=1 downto n do

        begin

           writeln(‘A[‘,i,’]’); readln (A[i]);

        end;

       S:=0; S1:=0; S2:=0;

     for i:=1 downto n do

        S:=S+A[i];

        writeln(‘Tong mang do la: ‘,S);

      for i:=1 downto n do

        begin

           if A[i] mod 2=0 then writeln(‘Cac phan tu chan la: ‘,A[i])

           S1:=S1+A[i];

        end;

      writeln(‘Tong cac phan tu chan la: ‘,S);

      for i:=1 downto n do

        begin

           if A[i] mod 2<>0 then writeln(‘Cac phan tu le la: ‘,A[i]);

           S2:=S2+A[i];

        end;

      writeln(‘Tong cac phan tu le la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận