Bài tập về mảng 1 chiều tính tổng các phần tử đếm các số âm hoặc dương tính tổng các số chẵn hoặc lẻ

0 bình luận về “Bài tập về mảng 1 chiều tính tổng các phần tử đếm các số âm hoặc dương tính tổng các số chẵn hoặc lẻ”

1. program oken;
   uses crt;
   var a: array [1..1000] of integer;
       n,i,dem1,dem2,sle,schan: longint;
   begin
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       dem1:=0; dem2:=0; sle:=0; schan:=0;
       for i:=1 to n do
           begin 
               write(‘A[‘,i,’]: ‘); readln(a[i]);
               if (a[i]>=0) then
                   dem1:=dem1+1
               else 
                   dem2:=dem2+1;
               if (a[i] mod 2=1) then
                   sle:=sle+a[i]
               else
                   schan:=schan+a[i];
           end;
       writeln(‘Cac phan tu co gia tri am: ‘,dem2);
       writeln(‘Cac phan tu co gia tri la duong: ‘,dem1);
       writeln(‘Tong cac phan tu co gia tri le: ‘,sle);
       writeln(‘Tong cac phan tu co gia tri chan: ‘,schan);
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n,d1,d2,tongchan,tongle:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

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

       for i:=1 to n do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     d1:=0; d2:=0; tongchan:=0; tongle:=0;

       for i:=1 to n do

   begin

      if A[i]>0 then d1:=d1+1;

      if A[i]<0 then d2:=d2+1;

      if A[i] mod 2=0 then tongchan:=tongchan+A[i] else tongle:=tongle+A[i];

   end;

     writeln(‘co’,d1,’ so duong’);

     writeln(‘co’,d2,’ so am’);

     writeln(‘tong so chan la:’,tongchan);

     writeln(‘tong so le la:’,tongle);

   readln

   end.

   Bình luận