Viết CT nhập vào mảng 2 chiều tìm phần tử thỏa mãn các đk sau: là số chính phương , là phần tử lớn nhất của hàng i, cột j
Thực hiện các yêu cầu sau với mảng 1 chiều
Nhập vào mảng có số lượng phần tử trong khoảng (7-17), các phần tử của mảng là số chẵn và lớn hơn 0
Xuất ra màn hình các phần tử có giá trị i là lẻ
Hiển thị tổng của những phần tử này
Tìm các số chính phương xuất hiện trong mảng, số thị vị trí và số lượng số chỉnh phương trong mảng này
Sắp xếp mảng theo chiều giảm dần sau đó đưa ra giá trị của phần tử ở chính giữa của mảng sau khi sắp xếp
Hiển thị tổng của những phần tử trong mảng lớn hơn 6
Viết CT thực hiện các yêu cầu sau :
- Nhập các phần tử của mảng.
- In các phần tử của mảng.
- Tìm giá trị lớn nhất.
- Tìm giá trị nhỏ nhất.
- Tính tổng các phần tử dương hoặc âm.
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;
for i:=1 to n do
write(a[i]:4);
writeln;
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;
writeln(max);
writeln(min);
readln;
end.
t:=0;
for i:=1 to n do
if a[i]<>0 then t:=t+a[i];
writeln(t);
readln;
end.
viết phương trình nhập vào từ bàn phím các phần tử của mảng một chiều a gồm n phần tử n lớn hơn bằng 100 các phần tử là số nguyên sau đó tính và đưa ra màn hình tổng các phần tử chia hết cho k
#include <bits/stdc++.h>
using namespace std;
int n,A[100],i,k,t;
int main()
{
cin>>n>>k;
for (int i=1; i<=n; i++) cin>>A[i];
t=0;
for (int i=1; i<=n; i++)
if (A[i]%k==0) t+=A[i];
cout<<t;
}
Viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử (với n được nhập vào từ bàn phím). Hãy thực hiện các công việc sau:
- Nhập các phần tử mảng từ bàn phím.
- Hiển thị mảng vừa nhập ra màn hình.
- In ra màn hình các số chính phương trong mảng.
- Đếm trong mảng có bao nhiêu phần tử có giá trị bằng 5. Nếu không có phần tử nào có giá trị bằng 5 thì in ra màn hình thông báo “Không có phần tử nào thỏa mãn điều kiệ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]<<" ";
return 0;
}
Viết ct nhập vào một mảnh gồm N số nguyên dương (N nguyên dương nhập từ bàn phím, N<=100) sau đó
a) tính tổng các số là bội của 3
b) tìm giá trị lớn nhất của mảng
c) Xét xem phần tử đầu tiên của mảng có phải là số nguyên tố hay ko
c) Cho biết các giá trị của mảng đc sx theo thứ tự ko gian chưa
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 thủ tục nhập vào mảng một chiều có n phần tử. - Viết hàm tính tổng các phần tử của mảng? - Viết hàm Kiểm tra xem tổng tìm được là số chẵn hay số lẻ - Viết chương trình chính sử dụng các CTC nói trên. Hiển thị kết quả ra màn hình.
Viết chương trình nhập vào 1 mảng số nguyên có n phần tử. Tìm phần tử lớn nhất trong mảng và vi trí của phần tử lớn nhất đó
Program HOC24;
var a: array[1..1000] of integer;
i,n,max: integer;
begin
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
t:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
writeln('So lon nhat trong mang la: ',max);
write('Vi tri cua cac phan tu do la: ');
for i:=1 to n do if a[i]=max then write(i,' );
readln
end.
Đề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy
program BaiTapMang;
var
n, i, max, min, s: longint;
a: array[1..100] of integer;
begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);
// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;
// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);
// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);
readln;
end.