Viết chương trình nhập vào một dãy số A gồm n số từ bàn phím (n<=100). In ra tổng các số chẵn, hiệu các số lẻ

0 bình luận về “Viết chương trình nhập vào một dãy số A gồm n số từ bàn phím (n<=100). In ra tổng các số chẵn, hiệu các số lẻ”

1. Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S,Ni:longint;

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

   Begin

   clrscr;

   S:=0; Ni:=0;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   For i:=1 to n do

   Ni:=Ni-A[i];

   S:=S+A[i];

   Write(‘ Tong cac so  la ‘,S);

   Write(‘Hieu cac so la’,N);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

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

         i,n:integer;

         S,H:longint;

   begin clrscr;

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

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        S:=0; H:=0;

      for i:=1 to n do

        begin

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

           if A[i] mod 2=1 then H:=H-A[i];

        end;

      writeln(‘Tong cac so chan la: ‘,S);

      writeln(‘Hieu cac so le la: ‘,H);

   readln;

   end.

   Học tốt!

   Bình luận