Viết chương trình thực hiện các yêu cầu sau a) nhập một mảng A có n phần tử hoặc nhập mảng DTB; b) in mảng A đã nhập ra màn hình c) Tìm giá trị lớn nh

Viết chương trình thực hiện các yêu cầu sau
a) nhập một mảng A có n phần tử hoặc nhập mảng DTB;
b) in mảng A đã nhập ra màn hình
c) Tìm giá trị lớn nhất của mảng A;
D) in các số lẻ của mảng A
e) In các số chẵn của mảng A
f) tính tổng mảng A và tổng các số chẵn có trong mảng A

0 bình luận về “Viết chương trình thực hiện các yêu cầu sau a) nhập một mảng A có n phần tử hoặc nhập mảng DTB; b) in mảng A đã nhập ra màn hình c) Tìm giá trị lớn nh”

  1. ĐÂY NHA BẠN

    program baigiai;

    uses crt;

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

          n,i,max,t,tc:integer;

    begin

        clrscr;

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

        for i:=1 to n do

           begin

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

             end;

          writeln(‘b. Mang da nhap la: ‘);

          for i:=1 to n do write(A[i],’ ‘);

          writeln;

          max:=A[1];

          for i:=1 to n do 

                if A[i]>max then max:=A[i];

          writeln(‘b. So lon nhat la: ‘,max);

          write(‘d. Cac so le la: ‘);

          for i:=1 to n do

                if A[i] mod 2=1 then write(A[i],’ ‘);

          writeln;

          write(‘e. Cac so chan la: ‘);

          for i:=1 to n do

            if A[i] mod 2=0 then write(A[i],’ ‘);

          writeln;

          t:=0;  tc:=0;

          for i:=1 to n do

            begin

            t:=t+A[i];

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

           end;

          writeln(‘f. Tong mang A la: ‘,t,’ va tong cac so chan la: ‘,tc);

          readln;

    end.

    Bình luận
  2. program baigiai;

    uses crt;

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

          n,i,max,t,tc:integer;

    begin

          clrscr;

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

          for i:=1 to n do

                begin

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

                end;

          writeln(‘b. Mang da nhap la: ‘);

          for i:=1 to n do write(A[i],’ ‘);

          writeln;

          max:=A[1];

          for i:=1 to n do 

                if A[i]>max then max:=A[i];

          writeln(‘b. So lon nhat la: ‘,max);

          write(‘d. Cac so le la: ‘);

          for i:=1 to n do

                if A[i] mod 2=1 then write(A[i],’ ‘);

          writeln;

          write(‘e. Cac so chan la: ‘);

          for i:=1 to n do

                if A[i] mod 2=0 then write(A[i],’ ‘);

          writeln;

          t:=0;  tc:=0;

          for i:=1 to n do

                begin

                      t:=t+A[i];

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

                end;

          writeln(‘f. Tong mang A la: ‘,t,’ va tong cac so chan la: ‘,tc);

          readln;

    end.

    Bình luận

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