viết thuật toán tính tổng các phần tử dương của dãy n số thực được lần lượt nhập vào máy tính
Những câu hỏi liên quan
Giúp em vs
Bài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.
Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ
bàn phím và N<=100.
Bai 2:
uses crt;
var a:array[1..100]of integer;
i,n,t,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
for i:=1 to n do
if nn>a[i] then nn:=a[i];
write(nn);
readln;
end.
Đúng 0
Bình luận (0)
C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )
C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
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 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
1. Nhập vào 1 dãy số thực có 20 phần tử.a)Tìm phần tử đầu tiên trong dãy có giá trị bằng x (x nhập từ bàn phím) b)Tính tổng các số dương trong dãy c)Tính Tb(+) các số âm trong dãy 2. Nhập dãy số nguyên có n phần tử (n nhập)a) Hiển thị ra màn hình các phần tử chia hết cho 3b) Tìm trong dãy tất cả các bộ gồm 3 số dương vị trí liền kề nhau và có tổng chia hết cho 53. Nhập 1 xâu ký tự bàn phím:a) Đếm số lượng chữ in hoa, chữ cái thường trong xâu b) Xóa bỏ các ký tự trắng thứ a trong xâu c) Đếm số từ...
Đọc tiếp
1. Nhập vào 1 dãy số thực có 20 phần tử.
a)Tìm phần tử đầu tiên trong dãy có giá trị bằng x (x nhập từ bàn phím)
b)Tính tổng các số dương trong dãy
c)Tính Tb(+) các số âm trong dãy
2. Nhập dãy số nguyên có n phần tử (n nhập)
a) Hiển thị ra màn hình các phần tử chia hết cho 3
b) Tìm trong dãy tất cả các bộ gồm 3 số dương vị trí liền kề nhau và có tổng chia hết cho 5
3. Nhập 1 xâu ký tự bàn phím:
a) Đếm số lượng chữ in hoa, chữ cái thường trong xâu
b) Xóa bỏ các ký tự trắng thứ a trong xâu
c) Đếm số từ trong sâu
d) Đổi sang chữ hoa hay các kí tự là chữ thường
MỌI NGƯỜI GIÚP EM TRẢ LỜI CÁC CÂU HỎI TRÊN VỚI Ạ! TKS
Cho 1 dãy số gồm n phần tử n15.Giá trị từng phần tử là số thực. Thực hiện các chương trình sau:
-Nhập từ bàn phím số phần tử và giá trị từng phần tử
-Tính tổng các phần tử dương của dãy
-Tính tổng và trung bình cộng của các phần tử lẻ của dãy -Tìm phần tử có giá trị lớn nhất của dãy
-Tìm phần tử có giá trị nhỏ nhất
-Sắp xếp dãy theo chiều tăng dần về giá trị của từng phần tử
Giúp mình với ạ. Cảm ơn mọi người
Đọc tiếp
Cho 1 dãy số gồm n phần tử n<=15.Giá trị từng phần tử là số thực. Thực hiện các chương trình sau:
-Nhập từ bàn phím số phần tử và giá trị từng phần tử -Tính tổng các phần tử dương của dãy -Tính tổng và trung bình cộng của các phần tử lẻ của dãy -Tìm phần tử có giá trị lớn nhất của dãy -Tìm phần tử có giá trị nhỏ nhất -Sắp xếp dãy theo chiều tăng dần về giá trị của từng phần tử Giúp mình với ạ. Cảm ơn mọi người
viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử . Hãy tính tổng các phần tử dương chẵn trong dãy
program tongduong;
uses crt;
var a:array[1..100] of integer;n,i,s:integer;
begin
clrscr;
s:=0;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];
write(' Tong cac so duong trong day la',s);
readln
end.
Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))
uses crt;
var a:array[1..249]of integer;
i,n,t,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<250);
uses crt;
var i,n:integer;
s:longint;
begin
write('nhap n:');readln(n);
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('tong cac phan tu chan trong day la:',s);
readln;
end.
Đúng 0
Bình luận (0)
Đề 1 Câu 1 (3.0 điểm): Viết chương trình nhập vào số nguyên dương N và thực hiện tính tổng S=3+5+7+..+(2n+1). Câu 2 (7.0 điểm): a. Viết chương trình nhập vào một dãy số nguyên có n phần tử. b. Đưa ra màn hình các phần tử có giá trị âm ở trong dãy. c. Tìm phần tử lớn nhất có trong dãy
Câu 1:
var i,n:integer;
s:longint;
begin
Write('n = ');readln(n)
for i:=1 to n do
s:=s+2*i+1;
write('tong la: ',s);
readln
end.
Đúng 1
Bình luận (0)
Câu 2
Bài 5:
Var b:array:[1..1000] of integer;
i,n,max:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(b[i]);
End;
Write('Cac phan tu am la: ');
For i:=1 to n dko
if b[i]<0 then write(b[i]:8);
writeln;
max:=b[1];
For i:=2 to n do
If b[i] > max then max:=b[i];
write('So lon nhat la ',max);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn hình
Đọc tiếp
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 dãy số, có chiều dài là N với N được nhập từ bàn phím
a) Tính tổng của các phần tử trong dãy số
b) Tìm giá trị lớn nhất của dãy
c) Tìm giá trị nhỏ nhất của dãy
d) Tính tổng các phần tử chẵn trong dãy
e) Tính tổng các phần tử lẻ trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
ln:=a[1];
nn:=a[1];
for i:=1 to n do
begin
if ln<a[i] then ln:=a[i];
if nn>a[i] then nn:=a[i];
end;
writeln(ln);
writeln(nn);
readln;
end.
Đúng 0
Bình luận (0)
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n: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] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n: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] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 3:
uses crt;
var a:array[1..100]of integer;
i,n,t: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 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)