Question

1,Nhập vào một dãy các số nguyên và nhập trị x,rồi đếm xem trong dãy có mặt bao nhiêu số x?

2, Viết chương trình nhập vào một dãy các số nguyên và đếm số các số dương,âm bằng không của dãy

3,Viết chương trình nhập vào một dãy các số nguyên,tính tổng bình phương của các số dương trong dãy

Answer 1

Câu 1:
uses crt;
var d,i,n:longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
write('Nhap x: ');readln(x);
for i:=1 to n do
if a[i]=x then inc(d);
write(d,' so');
readln
end.

Answer 2

Câu 2:
uses crt;
var d,i,n,d1,d2:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
for i:=1 to n do begin
if a[i]>0 then inc(d) else
if a[i]<0 then inc(d1) else
if a[i]=0 then inc(d2); end;
writeln('Co ',d,' so duong');
writeln('Co ',d1,' so am');
write('Co ',d2,' so 0');
readln
end.

Answer 3

Câu 3:
uses crt;
var s,i,n:longint;
a:array[1..10000000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
for i:=1 to n do
if a[i]>0 then s:=s+a[i]*a[i];
write('Tong binh phuong cac so duong la: ',s:0:0);
readln
end.