cho 1 dãy số nguyên và số nguyên k kiểm tra trong dãy số vừa nhập có bao nhiêu phần tử chia hết cho k
Giúp mình với ạ
Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ
var n,i,k,d: integer;
a:array[1..52] of integer;
begin
write('Nhap so N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
write('Nhap so k: '); readln(k);
d:=0;
for i:=1 to n do
if a[i] mod k = 0 then d:=d+1;
writeln('Co ',d,' so chia het cho ',k,' trong day');
if d mod 2 = 0 then writeln('Chan') else writeln('Le');
end.
uses crt;
var a:array[1..52]of integer;
i,n,k,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=52);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(dem);
writeln('Trong day co ',dem,' so chia het cho ',k);
if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')
else writeln('So luong so chia het cho ',k,' la so le');
readln;
end.
Viết chương trình nhập vào dãy số A gồm N số nguyên (N<=100), và số nguyên K. Kiểm tra xem có bao nhiêu phần tử có giá trị lớn hơn K?
Giúp mk vs
uses crt;
var a:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
dem:=0;
for i:=1 to n do
if a[i]>k then inc(dem);
write(dem);
readln;
end.
program countGreaterThanK;
var
A: array[1..100] of integer;
N, K, count: integer;
i: integer;
begin
write('Nhap so phan tu cua day A (<=100): ');
readln(N);
write('Nhap gia tri K: ');
readln(K);
count := 0;
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ' cua day A: ');
readln(A[i]);
if A[i] > K then
count := count + 1;
end;
writeln('So phan tu co gia tri lon hon K la: ', count);
end.
Xây dựng thuật toán của bài toán sau: Cho dãy A gồm N số nguyên a1,a2,...,aN và 1 số nguyên k cho trước. Đếm xem có bao nhiêu phần tử trong dãy A chia hết cho số k. Mô phỏng thuật toán với 2 bộ input.
Sử dụng phần mềm Scratch viết chương trình sau:
Tạo dãy số tự nhiên có N phần tử với giá trị được sinh tự động trong khoảng 1..10 và cho một số K bất kỳ (giá trị N và K được nhập từ bàn phím). Sau đó kiểm tra số K có trong dãy số vừa tạo không? Nếu có K trong dãy số trên thì đưa ra vị trí số K trong dãy và tính tổng các số nhỏ hơn K. Nếu K không thuộc dãy số trên thì thông báo trên màn hình “Số K không có trong dãy !”
Yêu cầu:
- Sử dụng 02 nhân vật Cat và Abby (có sẵn trong thư viện hình của Scratch)
- Nhân vật Cat sẽ yêu cầu nhập số N và sinh dãy
- Nhân vật Abby yêu cầu nhập số K, đưa ra vị trí K trong dãy và sẽ thông
báo kết quả tổng các số nhỏ hơn K trên màn hình.
- Lưu tên bài: dayso.sb2
Ví dụ: Giả sử nhập N = 5 và máy tính tự động sinh ra dãy: 8, 20, 12 , 7, 90
- Nếu nhập K = 20 thì trên Abby sẽ thông báo như sau:
Xuất hiện danh sách lưu vị trí K: 2
Tổng các số nhỏ hơn 20 là: 27
- Nếu nhập K = 44 thì Abby thông báo “Số 44 không có trong dãy”
giải nhanh nha mọi người cảm mơn mọi n
Em hãy viết chương trình sử dụng biển mảng đề nhập các phần tử của dãy số gồm n phần tử, kiểm tra xem dãy số đã cho có bao nhiều số nguyên dương và bao | nhiều số nguyên âm
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i]>0 then inc(dem1);
if a[i]<0 then inc(dem2);
end;
writeln('So so nguyen duong la: ',dem1);
writeln('So so nguyen am la: ',dem2);
readln;
end.
viết chương trình tạo dãy A gồm N số nguyên (N≤25) và 1 số nguyên k.
A) cho biết trong dãy A có bao nhiêu số có giá trị bằng k
B) cho biết trong dãy â có bao nhiêu số chia hết cho k
C) Tính tổng các số chia hết cho k trong dãy A
Viết chương trình nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không, nếu có thì đưa ra màn hình vị trí của phần tử đầu tiên và đếm xem có bao nhiêu phần tử bằng k hoặc thông báo không có.
uses crt;
var a:array[1..1000]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i]=k then
begin
writeln(i);
break;
end;
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
if dem>0 then writeln('Co ',dem,' phan tu bang ',k)
else writeln('Khong co phan tu nao bang ',k);
readln;
end.
nhập 1 số nguyên không quá 50 phần tử, đưa ra màng hình trung bình cộng chia hết cho 3 có trong dãy. Chèn số x vào vị trí số k trong dẫy (x,k nhập từ bàn phím )
Viết chương trình nhập vào số nguyên dương N và dãy gồm N số nguyên A1,A2,...,AN và số nguyên k.Đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng k
uses crt;
var a:array[1..100]of integer;
i,n,dem,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);
readln;
end.
Nhập mảng một chiều gồm n số nguyên và số nguyên k, kiểm tra có bao nhiêu phần tử lớn hơn k?
uses crt;
var n,k,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do
readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>k then dem:=dem+1;
writeln(dem);
readln;
end.