Viết chương trình nhập vào một dãy số a. tính tổng dãy số đó b.in ra màn hình dãy số vừa nhập C .Hãy in ra màn hình các số lẻ và số chẵn

0 bình luận về “Viết chương trình nhập vào một dãy số a. tính tổng dãy số đó b.in ra màn hình dãy số vừa nhập C .Hãy in ra màn hình các số lẻ và số chẵn”

1. `a )`Var a:array`[1..64000]`of longint;  

          n,i,d,T:longint;

   begin

    writeln(‘nhap so phan tu cua mang’);readln(n);

    writeln(‘nhap lan luot cac phan tu cua mang’);d:=`0`;t:=`0`;

    for i:=`1` to n do begin

     readln(a[i]);t:=t+a[i];

     if a[i] mod `2=0` then `d:=d+1`;

   end;

   `c )` writeln(‘tong cac phan tu cua mang la:’,t);

    writeln(‘mang vua nhap’);

    for i:=1 to n do

     write(a[i],’ ‘);

    writeln(‘so so le:’,n-d);

    writeln(‘so so chan:’,d);

   readln;

   end.

     

   Bình luận

2. Var a:array[1..64000]of longint;  

          n,i,d,T:longint;

   begin

    writeln(‘nhap so phan tu cua mang’);readln(n);

    writeln(‘nhap lan luot cac phan tu cua mang’);d:=0;t:=0;

    for i:=1 to n do begin

     readln(a[i]);t:=t+a[i];

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

   end;

    writeln(‘tong cac phan tu cua mang la:’,t);

    writeln(‘mang vua nhap’);

    for i:=1 to n do

     write(a[i],’ ‘);

    writeln(‘so so le:’,n-d);

    writeln(‘so so chan:’,d);

   readln;

   end.

     

     

   Bình luận