Viết chương trình nhập vào 1 dãy gồm N số nguyên (N nhập từ bàn phím). a/ In dãy số nguyên vừa nhập b/ In giá trị tổng các phần tử chẵn trong dãy số

0 bình luận về “Viết chương trình nhập vào 1 dãy gồm N số nguyên (N nhập từ bàn phím). a/ In dãy số nguyên vừa nhập b/ In giá trị tổng các phần tử chẵn trong dãy số”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           n, i, s, min: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          s:=0;
          for i:=1 to n do
          begin
                 write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                 if A[i] mod 2 = 0 then s:=s+A[i];
          end;
          min:=A[1];
          for i:=1 to n do if A[i]<min then min:=A[i];
          write(‘a. Day so vua nhap la: ‘);
          for i:=1 to n do write(A[i]:3);
          writeln;
          writeln(‘b. Tong = ‘, s);
          write(‘c. Gia tri nho nhat = ‘, min);
          readln
   end.

   Bình luận

2. program baigiai;

   uses crt;

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

         n,i,min,t:integer;

   begin

          clrscr;

          write(‘Nhap N: ‘);  readln(n);

          for i:=1 to n do

                 begin

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

                 end;

          write(‘Day so vua nhap la: ‘);

          min:=A[1];   t:=0;

          for i:=1 to n do

                 begin

                        write(A[i],’ ‘);

                        if A[i] mod 2=0 then t:=t+A[i];

                        if A[i]<min then min:=A[i];

                 end;

          writeln;

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

          writeln(‘Gia tri nho nhat la: ‘,min);

          readln;

   end.

   Bình luận