Lập chương trình tìm số xuất hiện nhiều nhất trong mảng (lớp 8 )

0 bình luận về “Lập chương trình tìm số xuất hiện nhiều nhất trong mảng (lớp 8 )”

1. uses crt;

   var a: array[k195520103135] of longint;

         i,n,ta,td,d: longint;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   if a[i]<0 then ta:=ta+a[i];

   if a[i]>0 then td:=td+a[i];

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

   end;k195520103135

   write (‘cac so chan la: ‘);

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

   write (‘cac so le la: ‘);

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

   writeln (‘tong cac so am: ‘,ta);

   writeln (‘tong cac so duong: ‘,td);

   writeln (‘co ‘,d,’ so 0 trong day so’);

   readln;

   end.

   Bình luận