Mấy bạn giúp mình với ạ Chương trình nhập vào mảng tối đa 50 số. Tính và xuất ra Tổng các số chẵn trong mảng vừa nhập.

0 bình luận về “Mấy bạn giúp mình với ạ Chương trình nhập vào mảng tối đa 50 số. Tính và xuất ra Tổng các số chẵn trong mảng vừa nhập.”

1. program oken;

   uses crt;

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

         n,i,chan:longint;

   begin

   clrscr;

   write(‘nhap so phan tu cua mang: ‘); readln(n);

   chan:= 0;

   for i:=1 to n do

     begin

        write(‘a[‘,i,’]: ‘); readln(a[i]);

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

      end;

   writeln(‘tong cac so chan cua mang a=’,chan);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var a:array[1..50] of longint;
   n,i,s:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           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;
           writeln(‘Tong cac so chan co trong day la: ‘,s);
           readln;
   end.

   Bình luận