, Viết chương trình nhập vào một mảng số nguyên A gồm 100 phần tử thực hiện một số yêu cầu sau : a) in ra mảng vừa nhập b) nhập vào một số nguyên X

0 bình luận về “, Viết chương trình nhập vào một mảng số nguyên A gồm 100 phần tử thực hiện một số yêu cầu sau : a) in ra mảng vừa nhập b) nhập vào một số nguyên X”

1.  

   Program Hotboy;

   Uses crt;

   Var A:array[1..100] of integer;

   I,n,X : byte;

   Begin

   Clrscr ;

   N:=0;

   Write(‘nhap so X’); readln(X);

   For i:=1 to 100 do 

   Begin

   Write(‘A[‘,i,’]’); readln(A[i]); 

   End;

   For i:=1 to n do

   If A[i] = X then  inc(n);

   Writeln(‘co so phan tu bang ‘,X,’ trong mang la’,n); 

   Readln

   End.

   Trả lời

2. Program FNG;
   Uses crt;
   Var A: array[1..100] of extended;
       x: extended;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap X: ‘); Readln(X);
           d:=0;
           For i:=1 to 100 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i] = x then inc(d);
           End;
           If d=0 then Write(‘Khong co’)
           Else Write(d);
           Readln
   End.

   Trả lời