, 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 hãy kiểm tra xem X có trong A hay không. Nếu có in số lần X xuất hiện trong mảng A
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
