Lập trình vào một mảng gồm n phần tử (n<25) mỗi phần tử là một số nguyên nhỏ hơn 100. Đếm xem có baonh phần tử <k, =k (với k là một số nguyên dương cho trước)
2 câu trả lời
Program BTT;
Uses crt;
Var A: array[1..24] of longint;
n,d,s,i,k: longint;
Begin
Clrscr;
Write('Nhap n,k: '); Readln(n,k);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]<k then inc(d);
If A[i]=k then inc(s);
End;
Writeln('<k: ',d);
Write('=k: ',s);
Readln
End.
var n,i,k,x,y:byte;
a: array [1..25] of byte;
begin
write('Nhap n: '); readln(n);
write('Nhap k: '); readln(k);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); read(a[i]);
if a[i]<k then inc(x);
if a[i]=k then inc(y);
end;
writeln;
writeln('So phan tu <k la: ',x);
write('So phan tu =k la: ',y);
readln;
end.
Câu hỏi trong lớp
Xem thêm
