Viết chương trình đếm số lần giá trị X xuất hiện trong mảng số nguyên A

0 bình luận về “Viết chương trình đếm số lần giá trị X xuất hiện trong mảng số nguyên A”

1. program oken;

   uses crt;

   var a: array [1..100] of integer;

          x,dem,i,n:integer;

   begin

   clrscr;

   writeln(‘nhap so phan tu cua mang: ‘); 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 x=a[i] then dem:=dem+1;

   writeln(‘so lan gia tri ‘,x,’ xuat hien trong mang: ‘,dem);

   readln;

   end.

   Bình luận