mảng 1 chiều: viết chương trình cho dãy số nguyên N và dãy số A1,A2,-.AN 1, đếm các số chẵn 2 đếm các số lẻ 3 đếm các số chia hết cho k( k n

0 bình luận về “mảng 1 chiều: viết chương trình cho dãy số nguyên N và dãy số A1,A2,-.AN 1, đếm các số chẵn 2 đếm các số lẻ 3 đếm các số chia hết cho k( k n”

1. uses crt;

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

   i,n,k,max,min,tam: integer;

   begin

    clrscr;

   write(‘Nhap so pt: ‘); readln(n);

   for i:=1 to n do 

   begin

   write(‘Nhap a[‘,i,’]’);

   readln(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(‘Cac so le: ‘);

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

   writeln;

   write(‘Nhap so k: ‘); readln(k);

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

   writeln;

   max:=a[1];

   tam:=0;

   for i:=2 to n do if a[i]> max then

   begin

   tam:=max;

   max:=a[i];

   a[i]:=tam;

   end;

   write(‘So lon nhat: ‘,max);

   writeln;

   tam:=0;

   min:=a[1];

   for i:=2 to n do if a[i]<min then

   begin

   tam:=min;

   min:=a[i];

   a[i]:=tam;

   end;

   write(‘So nho nhat: ‘,min);

   readln;

   end.

   Bình luận

2. program bt;
   uses crt;
   var a:array[1..100000] of longint;
       i,n,k,min,max,tl,tc,tk:longint;
   begin
   write(‘nhap n= ‘);
   readln(n);
   write(‘nhap k= ‘);
   readln(k);
   for i:=1 to n do
     begin
      write(‘nhap so thu ‘,i,‘ :’); readln(a[i]);
     end;
   min:=a[1];
   max:=a[1];
   tk:=0;
   tc:=0;
   tl:=0;
   for i:=1 to n do
   begin
     if a[i] mod 2=0 then tc:=tc+1 else tl:=tl+1;
     if a[i] mod k=0 then tk:=tk+1;
     if a[i]<min then min:=a[i];
     if a[i]>max then max:=a[i];
   end;
   writeln(‘co ‘,tc,‘ chu so chan trong day’);
   writeln(‘co ‘,tl,‘ chu so le trong day’);
   writeln(‘co ‘,tk,‘ chu so chi het cho ‘,k,‘trong day’);
   writeln(‘so lon nhat la: ‘,max);
   writeln(‘so nho nhat la: ‘,min);
   readln;
   end.

   Bình luận