Giai giup mk bai pascal nay vs a. Cam on moi nguoi. Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập.

0 bình luận về “Giai giup mk bai pascal nay vs a. Cam on moi nguoi. Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập.”

1. Program;
   Uses CRT;
   Var A:Array[1..50] of Integer;
   Var i,n,tc,tl:Integer;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘);
           Readln(n);
           For i:=1 To n Do
           Begin
                   Write(‘Nhap gia tri cho phan tu thu ‘,i,‘ :’);
                   Readln(A[i]);
           End;
           Write(‘Cac phan tu cua mang la: ‘);
           For i:= 1 To n Do
                   Write(A[i],‘  ‘);
           For i:=1 To n Do
                   If A[i] mod 2 = 0 then
                           tc:=tc+A[i]
                   Else
                           tl:=tl+A[i];
           Writeln;
           Writeln(‘Tong cac so chan la: ‘,tc);
           Write(‘Tong cac so le la: ‘,tl);

   Readln;
   End.

   Bình luận

2. Program BTH;
   uses crt;
   var n,i,k,t:longint;
   a:array[1..100000] of longint;
   Begin
           clrscr;
           Write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           Begin
                   Write(‘Nhap so thu ‘,i,’ : ‘);readln(a[i]);
           end;
           for i:=1 to n do
           Begin
                   If a[i] mod 2=0 then k:=k+a[i] else t:=t+a[i];
           end;
           Writeln(‘Tong so chan la: ‘,k);
           writeln(‘Tong so le la: ‘,t);
           readln;
   end.

   Bình luận