Cho mảng A gồm 10 phần tử từ bàn phím. Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng

0 bình luận về “Cho mảng A gồm 10 phần tử từ bàn phím. Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng”

1. uses crt;
   var i,x,d:integer;
   a : array [1..10] of integer;
   begin
   clrscr;
   for i:= 1 to 10 do
   begin
   write(‘Nhap a[‘,i,’] : ‘);readln(a[i]);
   end;
   write(‘Nhap x : ‘);readln(x);
   for i:=1 to 10 do if a[i] = x then inc(d);
   write(‘Phan tu ‘,x,’ xuat hien ‘,d,’ lan’);
   readln;
   end.

   Bình luận

2. Bạn tham khảo nhé

   Chương trình tìm số lần xuất hiện của phần tử x trong mảng là:

   Program demx;
   Uses crt;
   Const n=10;
   Var a:array[1..10] of real;
   x:real;
   Dem, i, spt:integer;
   Begin
   Clrscr;
   Write(‘nhap so phan tu cua mang’);
   Readln(spt);
   For i:=1 to spt do
   Begin
   Write(‘nhap phan tu thu ‘,i,’ ’);
   readln(a[i]);
   End;
   Write(‘nhap vao phan tu x can dem:’);
   Readln(x);
   For i:= 1 to spt do
   If a[i]=x then inc(dem);
   If dem=0 then write(‘khong co phan tu nao bang x!’) else
   Write(co ‘,dem,’ phan tu bang x!’);
   Readln;
   End.

   Bình luận