Viết chương trình nhập vào 1 mảng có n phần tử a) Tính tổng các phần tử là số chẵn của mảng và xuất ra màn hình Ghi chương trình giúp e ạ

0 bình luận về “Viết chương trình nhập vào 1 mảng có n phần tử a) Tính tổng các phần tử là số chẵn của mảng và xuất ra màn hình Ghi chương trình giúp e ạ”

1. program Bt;

   Uses Crt;
   Var a:array[1..100] of integer;
   i,n,S:integer;
   Begin
   Clrscr;
   Write(‘Nhap n ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap a[‘,i,’]=’);

   Readln(a[i]);
   End;
   S:=0;
   For i:= 1 to n do
   If a[i] mod 2 = 0 then
   S:=S+a[i];
   Writeln(‘Vay tong cac phan tu la so chan trong day la: ‘,S);
   Readln;
   End.

   Bình luận

2. Uses Crt;
   Var a:array[1..1000] of integer;
   i,n,S:integer;
   Begin
   Clrscr;
   Write(‘Nhap ptu n vao: ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap a[‘,i,’]=’); Readln(a[i]);
   End;
   S:=0;
   Write(‘Cac so chan trong day do la: ‘);
   For i:= 1 to n do
   If a[i] mod 2 = 0 then
   Begin
   Write(a[i]:4);
   S:=S+a[i];
   End;
   Writeln;
   Write(‘Vay tong cac so chan trong day la: ‘,S);
   Readln
   End.
   *Nhớ tick và chọn làm ctr/loi hay nhất giúp mình nhớ ! Đa tạ :333
   *p/s: Hỏi và đáp, comment bên dưới!

   Bình luận