Viết chương trình nhập từ bàn phím số nguyên dương n và dãy a gồm n số nguyên a1 a2 An a nhỏ hơn hoặc bằng 250 Hãy tính và đưa ra màn hình tích các số chẵn chia hết cho 7 có trong dãy a Giúp mk với.
2 câu trả lời
program bai_giai;
uses crt;
var a:array[1..10000]of longint;s,i,n:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
while a[i]>250 do
begin
write('nhap lai a[',i,']=');readln(a[i]);
end;
if(a[i]mod 2=0)and(a[i] mod 7=0)then s:=s+a[i];
end;
write(s);
readln;
end.
print((lambda n,a:sum([int(i) for i in a if (i%2==0) and(i%7==0)]))(int(input()),list(map(int,input().split()))))
