Tạo ngẫu nhiên mảng gồm n số nguyên (n<50) nhập vào số nguyên k ,đếm và in ra những số lớn hơn k trong mảng
Tạo ngẫu nhiên mảng gồm n số nguyên (n<50) nhập vào số nguyên k ,đếm và in ra những số lớn hơn k trong mảng
By Melody
By Melody
Tạo ngẫu nhiên mảng gồm n số nguyên (n<50) nhập vào số nguyên k ,đếm và in ra những số lớn hơn k trong mảng
uses crt;
var k:integer;
a:array[1..49] of integer;
n,i,dem:byte;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
write(‘Nhap k:’); readln(k);
randomize;
dem:=0;
for i:=1 to n do
begin
a[i]:=random(65534)-32766;
write(a[i],’ ‘);
if a[i]>k then inc(dem);
end;
writeln;
write(‘Co ‘,dem,’ so lon hon ‘,k);
readln
END.
Chúc bạn học tốt!
program ngaunhien;
uses crt;
var A:array[1..50] of integer;
n,i,d,k:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua mang: ‘); readln(n);
randomize;
for i:=1 to n do
A[i]:=random(65534)-32766;
writeln(‘Mang vua tao la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
writeln;
write(‘Nhap k: ‘); readln(k);
d:=0;
for i:=1 to n do
if A[i]>k then d:=d+1;
if d=0 then write(‘Khong co phan tu nao trong mang lon hon ‘,k)
else
begin
write(‘Co ‘,d,’ phan tu trong mang lon hon ‘,k)
write(‘Cac so lon hon ‘,k,’ trong mang la: ‘);
for i:=1 to n do
if A[i]>k then write(A[i],’ ‘);
end;
readln
end.