Em có biết nếu xếp nối tiếp nhau n mảng số thực cùng độ dài m phần tử trong bộ nhớ thì đó gọi là gì không?
Cho input đầu vào là mảng A có N phần tử ( 1 ≤ N ≤ 5, -102 ≤ Ai ≤ 102 )a/ Hãy cho biết mảng A có tạo thành một cấp số cộng hay không?b/ Hãy cho biết mảng A có đối sánh với nhau hay không? ( 1 mảng được gọi là đối sánh là nếu mảng đó có tính chất xen kẻn 1 số dương theo sau là 1 số âm )
Giúp em với ạ :<
uses crt;
var a:array[1..5]of integer;
i,n,x:integer;
kt,kt1:boolean;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=5);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (-100<=a[i]) and (a[i]<=100);
end;
kt:=true;
x:=abs(a[2]-a[1]);
for i:=2 to n do
if x<>abs(a[i]-a[i-1]) then
begin
kt:=false;
break;
end;
if kt=true then writeln('Day la day cap so cong')
else writeln('Day khong la day cap so cong');
kt1:=true;
for i:=1 to n do
if ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then
begin
kt1:=false;
break;
end;
if kt1=true then writeln('Mang A co doi sanh voi nhau')
else writeln('Mang A khong doi sanh voi nhau');
readln;
end.
Có n nguồn điện như nhau có cùng công suất điện động và cùng điện trở trong r mắc nối tiếp thành bộ rồi nối với điện trở R thì cường độ dòng điện chạy qua R là I1. Nếu mắc thành bộ nguồn song song rồi mắc điện trở R thì cường độ dòng điện là I2. Nếu R = r thì
A.I2 = 2I1.
B. I2 = I1.
C. I2 = 3I1.
D. I2 = 4I1.
Có n nguồn điện, như nhau có cùng suất điện động và cùng điện trở trong r mắc nối tiếp thành bộ rồi nối với điện trở R thì cường độ dòng điện chạy qua R là I 1 . Nếu mắc thành bộ nguồn song song rồi mắc điện trở R thì cường độ dòng điện là I 2 . Nếu R = r thì
A. I 2 = 2 I 1
B. I 2 = I 1
C. I 2 = 3 I 1 .
D. I 2 = 4 I 1
đáp án B
+ Mắc bộ nguồn nối tiếp:
ξ b = n ξ r b = n r ⇒ I 1 = ξ b R + r b = n ξ r + n r
+ Mắc bộ nguồn song song:
ξ b = ξ r b = r n ⇒ I 2 = ξ b R + r b = ξ r + r n = n ξ n r + r
Có n nguồn điện như nhau có cùng công suất điện động và cùng điện trở trong r mắc nối tiếp thành bộ rồi nối với điện trở R thì cường độ dòng điện chạy qua R là I1. Nếu mắc thành bộ nguồn song song rồi mắc điện trở R thì cường độ dòng điện là I2. Nếu R = r thì
A. I2 = 2I1.
B. I2 = I1.
C. I2 = 3I1.
D. I2 = 4I1.
nhập 1 mảng số nguyên gồm n phần tử (5<n<15)
a)Xuất xác phần tử trong mảng ra màn hình.
b)tìm kiếm phần tử có giá trị k trong mảng (k được nhập từ bàn phím). Nếu có thì thông báo: Trong mảng có phần tử có giá trị K (nếu không thì ngược lại)
uses crt;
var i,n,k:integer;
a:array[1..100]of integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then kt:=true;
if (kt=true) then write('Co k trong mang')
else writeln('Khong co k trong mang');
readln;
end.
Nhập vào mảng A gồm n số nguyên (n<=1000), Viết chương trình đưa ra số lớnnhất của mảng và chỉ số của phần tử lớn nhất đó. Nếu có nhiều số có cùng giá trị lớnnhất thì đưa ra phần tử có chỉ số nhỏ nhất.Ví dụ n=7, dãy là 7 9 20 7 8 20 1Phân tử lớn nhất có giá trị là 20 và ở vị trí số 3. (vị trí số 6 cũng có giá trị 20 nhưng takhông lấy vì ta cần lấy phần tử có chỉ số nhỏ nhất).
uses crt;
var a,b,c:array[1..1000]of integer;
i,n,dem,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
b[dem]:=a[i];
c[dem]:=i;
end;
if dem=1 then writeln('So lon nhat la: ',b[dem],' vi tri la: ',c[dem])
else writeln('So lon nhat la: ',b[1],' vi tri la: ',c[1]);
readln;
end.
Giúp em với ạ
Nhập n số thực từ bàn phím là phần tử của 1 mảng , sắp xếp dãy số theo thứ tự giảm dần . Xuất giá trị phần tử mảng lên màn hình
n = int(input("Nhap so luong phan tu: "))
arr = []
for i in range(n):
x = float(input("Nhap phan tu thu {}: ".format(i+1)))
arr.append(x)
arr.sort(reverse=True)
print("Mang da sap xep giam dan: ", arr)
1/Viết chương trình nhập vào một mảng số nguyên sắp xếp lại mảng đó theo thứ tự giảm dần
2/ Viết chương trình cho phép nhập vào 1 mảng gồm N phần tử, cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy
giúp em với ak
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,tam,j: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-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Lập trình thực hiện các công việc sau và hiển thị kết quả ra màn hình:
A,Nhập vào một mảng số nguyên A gồm n phần tử
B,Cho biết phần tử dương nhỏ nhất trong mảng
C,Nhập vào một số nguyên k và cho biết k có xuất hiện trong mảng hay không?Nếu có,tại những vị trí k xuất hiện trong mảng thay k bằng giá trị 0 rồi viết kết quả ra màn hình
D,Sắp xếp mảng theo chiều âm lên trước rồi đến số dương,cuối cùng là số 0