Viết chương trình nhập vào một mảng số nguyên gồm n phần tử ( với n <=100). Sau đó thực hiện các yêu cầu sau: a./ Hãy nhập và in mảng số nguyên trên r

Viết chương trình nhập vào một mảng số nguyên gồm n phần tử ( với n <=100). Sau đó thực hiện các yêu cầu sau: a./ Hãy nhập và in mảng số nguyên trên ra màn hình. b./ Hãy đếm số phần tử chẵn của mảng trên. c./ Hãy tính tổng các phần tử chẵn của mảng trên. các ban làm xong chạy thử trên turbo pascal được r mới vt nha

0 bình luận về “Viết chương trình nhập vào một mảng số nguyên gồm n phần tử ( với n <=100). Sau đó thực hiện các yêu cầu sau: a./ Hãy nhập và in mảng số nguyên trên r”

  1. var A: array[1..100] of integer; i,dem,n: integer; tong: real;
    begin
        write(‘Nhap so n: ‘);
        readln(n);
        for i:=1 to n do
        begin
            write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
            readln(a[i]);
        end;
        for i:=1 to n do
            if (a[i] mod 2 = 0) then 
            begin
                dem:=dem+1;
                tong:=tong+a[i];
            end;
        writeln(‘Ket qua: ‘);
        writeln(‘Cau a: Day la toan bo mang: ‘);
        for i:=1 to n do
            write(a[i],’ ‘);
        writeln();
        writeln(‘Cau b: So luong phan tu chan la: ‘,dem);
        writeln(‘Cau c: Tong phan tu chan la: ‘,tong:0:0);
        readln
    end.

    Bình luận
  2. program phantuchan;

    uses crt;

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

          n,i,d:integer;

          tong:longint;

    begin

              clrscr;

              write(‘Nhap so luong phan tu n: ‘);   readln(n);

              d:=0;   tong:=0;

              for i:=1 to n do

                        begin

                                  write(‘Phan tu thu ‘,i,’: ‘);   readln(A[i]);

                                  if A[i] mod =0 then

                                            begin

                                                      d:=d+1;

                                                      tong:=tong+A[i];

                                            end;

                        end;

              write(‘a) Mang vua nhap la: ‘);

              for i:=1 to n do

                        write(A[i],’ ‘);

              writeln;

              writeln(‘b) Trong mang co ‘,d,’ phan tu chan’);

              writeln(‘c) Tong cac phan tu chan trong mang la: ‘,tong);

              readln;

    end.

              

    Bình luận

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