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.
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.