VTC nhập 1 dãy A có n só tự nhiên(n<40) và 1 số k. Hãy xuất ra các phần tử có số lần xuất hiện trong dãy A từ k lần trở lên (mỗi số chỉ xuất hiện 1 lần)
1. VTC cho phép nhập n số và in theo thứ tự nhập lại
Câu 1 : nhập vào số tự nhiên N(N<=100) và dãy A gồm N số nguyên dương, các số có giá trị tuyệt đối ko quá 1000.
1 VTC pascal nhập số nguyên n. Tính các số Fibonacci theo công thức: F1 = F2 = 1; Fn = F1 - 1 + F2 + 2 + Xuất dãy số Fibbonacci ra màn hình +Tính tống dãy số Fibonacci và xét tổng đó có phải là số nguyên tố k Bài 2 VCt pascal nhập dãy số n(n từ bàn phím + Xuất ra màn hình số nhỏ nhất và số lớn nhất và tb cộng của dãy số + Kiểm tra giá trị tb đó có phải là số hoàn hảo không
Bài 1:
uses crt;
var f:array[1..255]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=2;
f[1]:=1;
f[2]:=1;
repeat
i:=i+1;
f[i]:=f[i-1]+f[i-2];
until i=n;
writeln('Day so fibonaci la: ');
for i:=1 to n do
write(f[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+f[i];
writeln('Tong cua day la: ',t);
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then kt:=1;
if (kt=0) and (t>1) then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('So nho nhat la: ',min);
writeln('So lon nhat la: ',max);
writeln('Trung binh cong cua day so la: ',t/n:4:2);
readln;
end.
Cho dãy số nguyên gồm N phần tử a 1 , a 2 , ..., a N .
(1 ≤ N ≤ 100, 0 ≤ a i ≤ 32767, 1 ≤ i ≤ N)
Yêu cầu: Hãy tìm số K, là số lượng lớn nhất các phần tử liên tiếp có giá trị bằng 0
trong dãy số trên.
Dữ liệu vào: Nhập số tự nhiên N và dãy số a 1 , a 2 , ..., a N từ bàn phím.
Dữ liệu ra: In ra màn hình số K tìm được.
Ví dụ: Nhập vào từ bàn phím N = 13, giá trị các phần tử của dãy số lần lượt là:
2 0 0 5 8 0 0 0 6 0 7 8 1
In ra màn hình kết quả K = 3
1) Nhập 1 số tự nhiên N Đưa ra màn hình số lượng các phần tử chẵn nhỏ hơn N 2) Nhập N và dãy a1, a2,..., aN Đưa ra màn hình số nhỏ nhất trong dãy vừa nhập
1) Đề chưa rõ ràng!
2) var a:array[1..1000] of real;
i,n:integer;
min:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('So nho nhat trong day la ',min:10:2);
readln
end.
2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.
2:
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(i:4);
readln;
end.
sao bài này giống bài tập cô mình giao thế nhỉ:>
4
var max,min,n,i: integer;
a:array [1..100] of integer;
begin
write('nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
write('so lon nhat trong day la: ',max);writeln;
write('so nho nhat trong day la: ',min);writeln;
readln;
end.
Viết chương trình nhập một dãy số gồm n số tự nhiên (n nhập từ bàn phím), sắp xếp chúng theo thứ tự tăng dần và in ra màn hình :
a) Dãy đã sắp
b) Các khoảng cách của hai số liền kề (hiệu của hai số đó )
#include <bits/stdc++.h>
using namespace std;
int A[1000],n,i;
int main()
{
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
sort(A+1,A+n+1);
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
cout<<endl;
for (int i=2; i<=n; i++)
cout<<A[i]-A[i-1]<<endl;
return 0;
}
VTC nhập số nguyên dương N ( N
Bạn ơi, đề bài yêu cầu gì vậy?
P/s: Bạn có thể ghi yêu cầu đề bài dưới phần bình luận được không?
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