Question

Câu 1:Viết chương trình đếm các số nguyên dương trong dãy số A={a1;a2;a3;...;a n}.

Câu 2:Viết phương trình pascal đưa ra màn hình trung bình cộng của 2 số bất kì nhập từ bàn phím.

Answer 1

Lời giải :

Câu 1 :

program hotrotinhoc;

var A : array[1..32000] of integer;

i,n,dem : integer;

begin

write('n='); readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

dem:=0;

for i:= 1 to n do

if a[i]>0 then dem:=dem+1;

write(dem);

readln

end.

Câu 2:

program hotrotinhoc;

var a,b,tb : integer;

begin

write('a='); readln(a);

write('b='); readln(b);

tb:=(a+b)/2;

write(tb);

readln

end.