Question

nhập vào 1 dãy và đếm xem trong dãy có bao nhiêu giá trị giống với x

Answer 1

program demgiatrigiong;

uses crt;

var x: real;

N: array[1..1000] of real;

i, dem: integer;

begin

clrscr;

write('Nhap do dai day, N = '); read(n);

write('Nhap cac phan tu cua day: ');

for i:= 1 to n do

begin write('N[',i,'] = '); read(N[i] end;

write('Nhap gia tri x = '); read(x);

dem:=0;

for i:=1 to n do

if N[i] = x then dem:= dem+1;

writeln('So phan tu co gia tri giong x la ',dem,'gia tri');

readln

end.