1.Viết chương trình nhập vào từ bàn phím số nguyên N ( N<= 200 ) và dãy A gồm N số nguyên A1,..,An . Tính tổng bình phương các số âm chẵn trong dãy và đưa kết quả ra màn hình 2.Viết chương trình nhập vào từ bàn phím số nguyên N ( N<= 200 ) và dãy A gồm N số nguyên A1,..,An . Đếm số lượng số âm lẽ và chia hết cho 3 trong dãy. Đưa kết quả ra màn hình
1 câu trả lời
`1)`
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
`2)`
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
