a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số nguyên,dương b) viết chương trình n

a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số nguyên,dương
b) viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị là số chẵn

0 bình luận về “a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số nguyên,dương b) viết chương trình n”

  1. a)

    program Y_a;

    uses crt;

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

          n,i,T: integer;

    Begin

             clrscr;

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

             for i:=1 to n do

             begin

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

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

             end;

             write(‘T = ‘,T);

             readln

    End.

    b)

    program Y_b;

    uses crt;

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

          i: integer;

    Begin

             clrscr;

             for i:=1 to 5 do

             begin

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

             end;

             write(‘Cac phan tu co gia tri chan: ‘);

             for i:=1 to 5 do

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

             readln

    End.

    Bình luận
  2.  ý a: 

    uses crt;
    var s,n,i: longint;
    a: array[1..100] of integer;
    begin
     clrscr;
     s:=0;
    write(‘Nhap so phan tu: ‘); readln(n);
    for i:=1 to n do begin
     write(‘a[‘,i,’]=’); readln(a[i]); end;
    for i:=1 to n do
     if a[i]>0 then s:=s+a[i];
     writeln(‘Tong cac so nguyen duong trong mang la: ‘,s);
    readln;
    end.

    ý b:

     uses crt;
    var s,i: longint;
    a: array[1..100] of integer;
    begin
     clrscr;
     s:=0;
    for i:=1 to 5 do begin { vì mảng chỉ có 5 phần tử nên chỉ cần ‘to 5’ }
     write(‘a[‘,i,’]=’); readln(a[i]); end;
     write(‘Cac phan tu chan la: ‘);
    for i:=1 to 5 do
     if a[i] mod 2 = 0 then write(a[i],’ ‘);
    readln;
    end.

    Bình luận

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