Viết c.trình nhập vào 1 mạnq số nquyên phân tử:
a. In ra mạnq vừa nhập
b. in ra phần tử lớn nhất, bé nhất
c. Tính tổnq các phân tử tronq dãy
d. In ra các p.tử chia hết cho 3
e. In ra các p.tử chia hết cho 2 và 5
Viết c.trình nhập vào 1 mạnq số nquyên phân tử:
a. In ra mạnq vừa nhập
b. in ra phần tử lớn nhất, bé nhất
c. Tính tổnq các phân tử tronq dãy
d. In ra các p.tử chia hết cho 3
e. In ra các p.tử chia hết cho 2 và 5
program Mang_tong_hop;
uses crt;
var A:array [1..500] of integer;
n,i,max,min,T: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i’]=’); readln(A[i]);
end;
max:=1; min:=1;
write(‘a) Mang vua nhap: ‘);
for i:=1 to n do
begin
write(A[i],’ ‘);
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
T:=T+A[i];
end;
writeln;
writeln(‘b) Phan tu lon nhat: ‘,max);
writeln(‘ Phan tu nhp nhat: ‘,min);
writeln(‘c) Tong cac phan tu trong mang = ‘,T);
write(‘d) Cac phan tu chia het cho 3: ‘);
for i:=1 to n do
if A[i] mod 3=0 then write(A[i],’ ‘);
writeln;
write(‘e) Cac phan tu chia het cho 2 va 5: ‘);
for i:=1 to n do
if (A[i] mod 2=0) and (A[i] mod 5=0) then write(A[i],’ ‘);
readln
End.
uses crt;
var a:array[1..100] of integer;
i,n,min,max,tong:longint;
Begin
clrscr;
write(‘Nhap n: ‘);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’] =’);
readln(a[i]);
end;
writeln(‘Mang vua nhap la: ‘);
for i:=1 to n do write(a[i],’ ‘);
writeln;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
tong:=tong+a[i];
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln(‘Phan tu lon nhat la: ‘,max);
writeln(‘Phan tu nho nhat la: ‘,min);
writeln(‘Tong cua cac phan tu trong mang la: ‘,tong);
writeln(‘Cac phan tu chia het cho 3 la: ‘);
for i:=1 to n do if a[i] mod 3 = 0 then write(a[i],’ ‘);
writeln;
writeln(‘Cac phan tu chia het cho 2 va 5 la: ‘);
for i:=1 to n do if a[i] mod 10 = 0 then write(a[i],’ ‘);
readln;
end.
Giải thích câu e: một số chia hết cho cả 2 và 5 là số có đuôi = 0, tức chia hết cho 10. nên chỉ cần xét điều kiện chia hết cho 10 là đủ.