Viết chương trình bằng ngôn ngữ Pascal nhập dãy số A, biết số phần tử của dãy là n. Xác định và in ra các phần tử là số chẳn trong dãy A. Nếu nhập n<0 thì thông báo " bạn nhập sai, yêu cầu nhập lại "
Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300) a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?
b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?
kiểm tra xem dãy trên có phải là cấp số cộng không?
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
cách viết chương trình nhập vào dãy gồm n số nguyên, hãy cho biết phần tử lớn nhất phần tử nhỏ nhất và tính trung bình của dãy số vừa nhập
uses crt;
var a:array[1..100]of integer;
n,i,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];
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4:2);
readln;
end.
viết chương trình nhập dãy số gồm N số nguyên nhập từ bàn phím.Thực hiện:
- In dãy số đã nhập ra màng hình.
- In dãy số đó theo chiều ngược lại.
-Xuất phần tử thứ j ra màng hình. với j nhập từ bàn phím (j<=N)
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
}
Viết chương trình nhập vào 1 dãy số từ a1, a2, …, an. In dãy số vừa nhập ra màn hình theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử.
Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:
```python
n = int(input("Nhập số phần tử của dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))
count = 0
for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0
if count != 0:
print()
```
Giải thích:
Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.Ví dụ:
```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```
GIÚP MÌNH VỚI, MÌNH ĐANG CẦN GẤP. SOS, TKS. ˚ω˚˚ω˚
Bài 1: Viết chương trình nhập vào dãy A gồm N phần tử nguyên. Hãy:
A. Tính và đưa ra màn hình tổng các phần tử chẵn trong dãy
B. Đếm và đưa ra màn hình số lượng phần tử âm trong dãy
Bài 2: Viết chương trình nhập vào sâu S từ bàn phím( có cả kí tự chữ và kí tự số ) hãy viết ra màn hình xâu S sau khi loại bỏ các kí tự số
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. tính tích các số vừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
viết chương trình nhập số nguyên dương n. Nhập dãy gồm n số nguyên. Hãy tính tổng các số nằm ở vị trí chẵn trong dãy ?
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
Em hãy viết chương trình hoàn chỉnh vào mảng 1 chiều gồm 6 phần tử . Đếm và tính tổng các phần tử dương của mảng vừa nhập, biết rằng các phần tử trong mảng là các số nguyên
program hoc24;
uses crt;
var a: array[1..100] of integer;
i,d,s: longint;
begin
clrscr;
for i:=1 to 6 do readln(a[i]);
s:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(d);
s:=s+a[i];
end;
writeln(d,s);
readln
end.
bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo
uses crt;
var a:array[1..6]of integer;
i,dem,t:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to 6 do
if a[i]>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
readln;
end.
1 : Tìm một phân số bằng phân số 3/5 , biêết rằng hiệu của mẫu số và tử số của phân số đó bằng 14 .
2 : Tìm số có ba chữ số , biết rằng nếu đổi chỗ chữ số hàng trăm và hàng đơn vị của nó cho nhau thì giá trị của nó không thay đổi , còn chữ số hàng chục bằng một phần ba tổng hai chữ số kia .
3 : Cho dãy số lẻ liên tiếp : 1 ; 3 ; 5 ; 7 ; 9 ;....; X . Tìm x để chữ số của dãy gấp bốn lần số các chữ số của dãy .