ngiện In ternet gây ảnh hưởng j
hãy nêu chức năng của hệ điều hành
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program HOC24;
uses crt;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];
end;
readln;
write(t);
readln;
end.