viết chương trình nhập dãy A gồm n nguyên (n <= 100) a) đếm số lượng các số lẻ ở vị trí chẵn b) tính tổng giá trị các số nguyên tố trong dãy

0 bình luận về “viết chương trình nhập dãy A gồm n nguyên (n <= 100) a) đếm số lượng các số lẻ ở vị trí chẵn b) tính tổng giá trị các số nguyên tố trong dãy”

1. a, Program SX;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,n,d1,d2,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

       b,    Write(‘Co ‘,d1,’ gia tri chan, ‘,d2,’ so la boi cua 5, tong cua cac so le la ‘,s);
           Readln
   End.

   chúc bn hok tốt !!!

   Bình luận