Cho 1 dãy số gồm n phần tử ( n <=250 ) và giá trị a1;a2;... an các phần tử a[i] a.Tính tổng các phần tử chẵn trong dãy. b. Đếm các phần tử không âm trong dãy.
Cho 1 dãy số gồm n phần tử ( n <=250 ) và giá trị a1;a2;... an các phần tử a[i] a.Tính tổng các phần tử chẵn trong dãy. b. Đếm các phần tử không âm trong dãy.
a,
Var a: array (1…250)of integer;
n,i,t: integer;
begin
write (‘ nhap so luong phan tu:’); readln (n);
t:=0;
for i:=1 to n do
begin
write (‘A(‘,i,’)=’);
readln (A(i));
if (A(i) mod 2=0) then t:=t+ A(i);
end;
write(‘tong cac phan tu chan trong day:’,t);
readln;
end.
var a:array[1..250] of integer;n,i:integer;
procedure xl;
var t,d:integer;
begin
t:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t:=t+a[i];
end;
writeln(t);
d:=0;
for i:=1 to n do
if a[i]<=0 then inc(d);
write(d);
end;
begin
assign(input,’bt.inp’);reset(input);
assign(output,’bt.out’);rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
xl;
close(input);
close(output);
end.