Cho dãy số a1, a2,....... an a,Tính tổng các số lẻ xuất hiện trong mảng b,Tính tổng các số chia hết cho 2 và 5
2 câu trả lời
a)
program h247;
uses crt;
var a:array[1..1000]of integer;
i, n, tl: integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] '); readln(a[i]);
if a[i] mod 2<>0 then tl:=tl+a[i];
end;
write('Tong so le trong mang la ',tl);
readln;
end.
b)
program h247;
uses crt;
var a:array[1..1000]of integer;
i, n, tong: integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] '); readln(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then tong:=tong+a[i];
end;
write('Tong cac so chia het cho 2 va 5 la ',tong);
readln;
end.
a) Input: số nguyên N và dãy a1,...,an
output: số lượng số chẵn trong dãy.
Ý tưởng:
khởi gán dem=0
lần lượt chia các ai (i:1->N) cho 2
nếu ai chia hết cho 2 thì dem=dem+1
diễn tả thuật toán
liệt kê:
b1: nhập số nguyên dương N và dãy a1, a2,..,an
b2: i<-1 dem<-0
b3: i>N thì đưa ra biến dem rồi kthúc
b4: ai chia hết cho 2 thì dem<-dem+1
b5: i<-i+1, quay lại bc 3
b)Input: dãy A gồm N số nguyên tử a1, a2, a3... Ăn
Output:tính tổng các số chia hết cho 2
