uses crt;
var a:array[1..250]of integer;
n,i,t,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so la boi cua 3 la: ',t);
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('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Cho số nguyên dương N ( N ≤ 250 ) và dãy n số nguyên dương A1 A2,..., An mỗi số đều không vượt quá 500. Yêu cầu:
1) Đếm số lượng các phần tử có giá trị lẻ trong dãy số A.
2) Tính tổng giá trị các phần tử đứng vị trí chẵn trong dãy số A
3) Tính tổng giá trị các phần tử đứng vị trí lẻ trong dãy số A.
4) Tính tổng giá trị các phần tử là số chẵn đứng ở vị trí chẵn trong dãy A.
5) Tính tổng giá trị các phần tử là số lẻ đứng ở vị trí lẻ trong dãy A.
6) Tính trung bình cộng các phần tử trong dãy.
uses crt;
var a:array[1..250]of integer;
i,n,dem,t,t1,t2,t3,t4:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=250);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<a[i]) and (a[i]<=500);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('So phan tu co gia tri le la: ',dem);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu co chi so chan la: ',t);
t1:=0;
for i:=1 to n do
if i mod 2=1 then t1:=t1+a[i];
writeln('Tong cac phan tu co chi so le la: ',t1);
t2:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i] mod 2=0) then t2:=t2+a[i];
writeln('Tong cac phan tu chan co chi so chan la: ',t2);
t3:=0;
for i:=1 to n do
if (i mod 2=1) and (a[i] mod 2=1) then t3:=t3+a[i];
writeln('Tong cac phan tu co chi so le la: ',t3);
t4:=0;
for i:=1 to n do
t4:=t4+a[i];
writeln('Trung binh cong cac so trong day la: ',t4/n:4:2);
readln;
end.
Cho dãy số a1,a2,...an(a<10*,0<n<=50)
1, Tính tổng các số chẵn.
2, Tính tổng các số lẻ.
3, Tính tổng các số nguyên âm.
4, Tính tổng các số nguyên dương.
5, Tính tổng các số S=a1+a2-a3+a4+a5-a6.
6, Sắp xếp mảng tăng dần.
7, Sắp xếp mảng giảm dần.
8, Tìm Max,Min.
9, Tìm số chẵn lớn nhất, số lẻ nhỏ nhất.
10, Tìm số nguyên âm lớn nhất, số nguyên dương nhỏ nhất.
11, Tìm và in ra các số nguyên tố.
12, Tìm và in ra các số chính phương.
13, Tìm và in ra các số chẵn,lẻ.
14, Tìm và in ra các số hoàn chỉnh
Ai rảnh hoặc biết làm cái bài này thì làm hộ mình theo pascan với vì thật sự mình ko biết làm.
Đúng là anh thành sứt, lên đây hỏi ạ.
Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được
Input : Dãy A gồm N số nguyên a1....aN;
Output : Trung bình cộng của các số dương;
B1 : Nhập N số nguyên a1.... aN;
B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;
B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];
B4 : dem <--- dem + 1;
B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;
B 6 : i <--- i + 1 rồi quay lại B3;
Câu 1 khai báo dãy a gồm n(n>=300) số nguyên dương Câu 2 khai báo dãy a gồm n(n>=300) số nguyên dương mỗi số có giá trị nhỏ hơn 500 a tạo giá trị mảng bằng hàm random B tính tổng các số có giá trị bằng 150
Câu 2:
uses crt;
var a:array[1..300]of integer;
i,n,t:integer;
begin
clrscr;
randomize;
cin>>n;
for i:=1 to n do a[i]:=random(500);
t:=0;
for i:=1 to n do if a[i]=150 then t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
uses crt;
var a:array[1..100]of integer;
i,n,min,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
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.
Câu 2: Cho dãy A gồm N số nguyên a1, a2,…,an . Em hãy sắp xếp dãy số A thành dãy không tăng(KHÔNG GIẢM).Câu 3: Cuối năm học lớp 10 các bạn trong lớp đều có điểm trung bình môn. Ví dụ bạn A: 8.5, B:9.4, C: 7.8 ..., em hãy xây dựng thuật toán tìm ra bạn có điểm cao nhất.
2:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
for (i=n; i>=1; i--) cout<<a[i]<<" ";
return 0;
}
Tạo mảng A gồm n (\(n\le100\)) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300.Viết chương trình tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước.
uses crt;
var a:array[1..100]of integer;
i,n,t,k:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Uses crt;
Var A: array[1..100] of longint;
n,k,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n,k: ‘); Readln(n,k);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod k = 0 then s:=s+A[i];
End;
Write(s);
Readln
End.
viết ct nhập từ bàn phím số nguyên dương N ( N<100) và dãy A gồm N số dương A1,A2,...An. hãy in mảng vừa nhập
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100];
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
return 0;
}