Nhập vào mảng N số nguyên: a) in ra màng hình các số chẵn có trong mảng b)tính tổng các số lẻ có trong mảng

0 bình luận về “Nhập vào mảng N số nguyên: a) in ra màng hình các số chẵn có trong mảng b)tính tổng các số lẻ có trong mảng”

1. uses crt;
   var a:array[1..10000] of longint;
         n,i,s:longint;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         for i:=1 to n do
               begin
                     write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                     if a[i] mod 2=1 then inc(s,a[i]);
               end;
         write(‘Cac so chan: ‘);
         for i:=1 to n do if a[i] mod 2=0 then write(a[i],’ ‘); writeln;
         write(‘Tong cac so le: ‘,s);
         readln;
   end.

   Bình luận

2. uses crt;

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

   i,n,s: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   if a[i] mod 2<>0 then s:=s+a[i];

   end;

   write (‘a/ cac so chan co trong mang la: ‘);

   for i:=1 to n do if a[i] mod 2=0 then write (a[i],’  ‘);

   writeln;

   write (‘tong cac so le trong mang la: ‘,s);

   readln;

   end.

   Bình luận