Viết chương trình nhập vào từ bàn phím 1 số nguyên dương N,N<=100 và dãy A gồm N số nguyên A1A2...An a) In ra màn hình dãy vừa nhập b) Đếm số phần tử chia hết cho 3 ở trong dãy c) Tính tổng các phần tử lẻ trong dãy.

Program abi;

uses crt;

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

i,n: integer;

s: integer=0;

count:integer=0;

begin

clrscr;

writeln ('Nhap vao N : '); readln (n);

for i:=1 to n do begin write ('a[',i,'] = '); readln (a[i]); end;

for i:=1 to n do begin write (a[i],'  '); if a[i] mod 3 = 0 then count:=count+1;if a[i] mod 2 <> 0 then s:=s+a[i] ;end;

writeln ('Co ',count,' phan tu trong day tren.');

writeln ('Tong cac phan tu le trong day : ', s);

end.

program Bai;

uses crt;

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

      s,dem,i,n:integer;

begin 

  clrscr; 

dem:=0;

s:=0;

 write('Nhap n phan tu:'); readln(n);

  for i:=1 to n do 

    begin 

 write('A[',i,']=');

readln(A[i]);

for i:=1 to n do writeln(A[i]:3) {In dãy}

for i:=1 to n do

if A[i] mod 3=0 then inc(dem); { Đếm số phần tử chia hết cho 3}

writeln('So phan tu chia het cho 3 ',dem)

for i:=1 to n do 

if A[i] mod 2<>0 then s:=s+A[i]; { Tổng phần tử số lẻ}

writeln('Tong cac phan tu le trong day la ',s);

readln 

end.