Bài tập: viết chương trình nhập dãy n (n là sô nguyên),hãy đưa ra các thông tin sau:
hiển thị dãy các số chẵn, dãy các số lẻ tìm giá trị lớn nhất,giá trị nhỏ nhất tính tổng dãy n số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.
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.
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.
Bài 5 : Cho a và b là các số nguyên có 2 chữ số . Hãy tìm giá trị lớn nhất và giá trị nhỏ nhất của tổng a + b ?
số lớn nhất có 2 cs là 99 thì a+b=9+9=18
số bé nhất có 2 cs là -99 thì a+b=(-9)+(-9)=-18
Cho dãy số tự nhiê 1; 2; ...; 50
a) Tìm 2 số thuộc dãy sao cho ước chung lớn nhất của chúng đạt giá trị lớn nhất
b) Tìm 2 số thuộc dãy sao cho bội chung nhỏ nhất đạt giá trị thuộc dãy
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 "
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
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 :(((
Cho dãy số 3, 5, 8, 11, 15, 19 .....
a) Em hãy viết thủ tục để tìm giá trị của số đứng ở vị trí N với N được nhập từ bàn phím.
b) Gọi thủ tục trên để tìm giá trị số đứng ở vị trí 2020 của dãy
Cho dãy A gồm N số nguyên dương A1,A2,A3...An (N<=500).Viết chương trình thực hiện tính tổng các số lẻ của dãy. Viết hàm kiem_tra (x:integer):boolean;(hàm trả về giá trị bằng TRUE nếu x là số lẻ, hàm trả về giá trị bằng FALSE nếu x là số chẵn
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
{----------------------chuong-trinh-con------------------------}
function kiem_tra(x:integer):boolean;
begin
if x mod 2<>0 then kiem_tra:=true
else kiem_tra:=false;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=500);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to n do
if kiem_tra(a[i])=true then t:=t+a[i];
writeln('Tong cac so le la: ',t);
readln;
end.