Đề bài: Viết chương trình nhập vào một dãy số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn và tính tổng của các phần tử chẵn đó. Yêu cầu: Viế

Đề bài:
Viết chương trình nhập vào một dãy số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn và tính tổng của các phần tử chẵn đó.
Yêu cầu:
Viết chương trình tối ưu nhất, dùng ít lệnh nhất

0 bình luận về “Đề bài: Viết chương trình nhập vào một dãy số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn và tính tổng của các phần tử chẵn đó. Yêu cầu: Viế”

  1. var A: array[1..500] of integer;
            n, s, i: integer;
    begin
            readln(n);
            for i:=1 to n do readln(A[i]);
            for i:=1 to n do if A[i] mod 2 = 0 then
            begin
                     writeln(A[i]:3);
                     s:=s+A[i];
            end;
            write(‘Tong chan: ‘, s);
            readln
    end.

    Bình luận
  2. uses crt;
    var i,n,s:integer; a:array[1..1000000]of integer; 
    begin
    clrscr;
       readln(n);
       for i:=1 to n do read(a[i]);
       writeln(‘Cac so chan: ‘);
       for i:=1 to n do 
          if a[i] mod 2=0  then 
          begin
             writeln(a[i]);
             s:=s+a[i];     
          end;
       writeln(‘Tong: ‘,s);
    readln
    end.

    Bình luận

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