Viết chương trình nhập vào mảng n phần tử.đếm các phần tử lẻ,chẵn,dương ,âm trong mảng. Viết lẻ,chẵn,dương, âm riêng ra ạ,em cảm ơn mn^-^

Viết chương trình nhập vào mảng n phần tử.đếm các phần tử lẻ,chẵn,dương ,âm trong mảng. Viết lẻ,chẵn,dương, âm riêng ra ạ,em cảm ơn mn^-^

0 bình luận về “Viết chương trình nhập vào mảng n phần tử.đếm các phần tử lẻ,chẵn,dương ,âm trong mảng. Viết lẻ,chẵn,dương, âm riêng ra ạ,em cảm ơn mn^-^”

  1. uses crt;

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

    i,n,dl,dc,dd,da: integer;

    begin

    clrscr;

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

    for i:=1 to n do

    begin

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

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

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

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

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

    end;

    writeln (‘tong mang co ‘,dl,’ phan tu le’);

    writeln (‘tong mang co ‘,dc,’ phan tu chan’);

    writeln (‘tong mang co ‘,dd,’ phan tu duong’);

    writeln (‘tong mang co ‘,da,’ phan tu am’);

    readln;

    end.

    Bình luận
  2. Đếm lẻ:

    program dem_le;

    uses crt;

    var A:array[1..1000] of integer;

          n,i,d:integer;

    begin

           clrscr;

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

           d:=0;

           for i:=1 to n do

                  begin

                         write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                         if A[i] mod 2=1 then d:=d+1;

                  end;

           write(‘Co ‘,d,’ so le’);

           readln;

    end.

    Đếm chẵn:

    program dem_chan;

    uses crt;

    var A:array[1..1000] of integer;

          n,i,d:integer;

    begin

           clrscr;

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

           d:=0;

           for i:=1 to n do

                  begin

                         write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                         if A[i] mod 2=0 then d:=d+1;

                  end;

           write(‘Co ‘,d,’ so chan’);

           readln;

    end.

    Đếm dương:

    program dem_duong;

    uses crt;

    var A:array[1..1000] of integer;

          n,i,d:integer;

    begin

           clrscr;

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

           d:=0;

           for i:=1 to n do

                  begin

                         write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

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

                  end;

           write(‘Co ‘,d,’ so duong’);

           readln;

    end.

    Đếm âm:

    program dem_am;

    uses crt;

    var A:array[1..1000] of integer;

          n,i,d:integer;

    begin

           clrscr;

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

           d:=0;

           for i:=1 to n do

                  begin

                         write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

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

                  end;

           write(‘Co ‘,d,’ so am’);

           readln;

    end.

    Bình luận

Viết một bình luận