nhập từ bàn phím 1 mảng 1 chiều a có tối đa 50 phần tử, sau đó in lên màn hình:
a) các phần tử là số lẻ
b)các phần tử ở vị trí chẵn
c)là số lẻ ở vị trí chẵn
Những câu hỏi liên quan
Cho mảng A gồm có N phần tử các số nguyên không âmN được nhập từ bàn phím. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau:
1.Nhập gtrị cho mảng A
2.Xuất gtrị mảng A ra màn hình
3.Tính tổng gtrị của mảng A
4.Tính tích gtrị của mảng A
5.Tính tổng gtrị các phần tử ở vị trí chẳn
6.Tính tích gtrị các phần tử ở vị trí lẻ
7.Sắp xếp mảng A thành mảng không giảm
8.In ra màn hình các phần tử có gtrị lớn hơn 10
9.Hoàn...
Đọc tiếp
Cho mảng A gồm có N phần tử các số nguyên không âm'N được nhập từ bàn phím'. Em hãy viết đoạn chương trình để thực hiện yêu cầu sau:
1.Nhập gtrị cho mảng A
2.Xuất gtrị mảng A ra màn hình
3.Tính tổng gtrị của mảng A
4.Tính tích gtrị của mảng A
5.Tính tổng gtrị các phần tử ở vị trí chẳn
6.Tính tích gtrị các phần tử ở vị trí lẻ
7.Sắp xếp mảng A thành mảng không giảm
8.In ra màn hình các phần tử có gtrị lớn hơn 10
9.Hoàn chỉnh các đoạn chương trình trên thành 1 chương trình pascal hoàn chỉnh.
uses crt;
var a:array[1..100]of longint;
i,n,t,t1,tam,j:integer;
s,s1:int64;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until a[i]>=0;
end;
writeln('Mang A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong gia tri cua mang A la: ',t);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac gia tri cua mang A la: ',s);
t1:=0;
for i:=1 to n do
if i mod 2=0 then t1:=t1+a[i];
writeln('Tong cac gia tri o vi tri chan la: ',t1);
s1:=1;
for i:=1 to n do
if i mod 2<>0 then s1:=s1*a[i];
writeln('Tich cac gia tri o vi tri le la: ',s1);
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;
writeln('Mang A sau khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu co gia tri lon hon 10 la: ');
for i:=1 to n do
if a[i]>10 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
cho tập hợp B bằng (1975;1976;1977;1978;...;2015)
a)viết tập hợp D bằng cách chỉ ra tính đặc trưng cho các phần tử của nó
b)tập hợp B có bao nhiêu phần tử là số chẵn? số lẻ?
đặc trưng là cách nhau 1 đơn vị
có 20 phần tử chẵn
có 15 phần tử lẻ
Đúng 0
Bình luận (0)
CMR:1 số có chẵn cs chia hết cho 11 thì hiệu giữa tổng các cs "đứng ở vị chẵn''và tổng các chữ số đứng ở vị trí lẻ,kể từ trái qua phải chia hết cho 11
(Biết 102n-1 và 102n-1+1 chia hết cho11)
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ãyB. Đếm và đưa ra màn hình số lượng phần tử âm trong dãyBà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ố
Đọc tiếp
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ố
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.
Đúng 1
Bình luận (0)
bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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]<<" ";
}
Đúng 0
Bình luận (1)
Gọi A là tập hợp các phân số tối giản nhỏ hơn 1 có tử và mẫu đều dương, biết tích của tử và mẫu của phân số đó bằng 120. Số phần tử của tập hơn A là ?
mình thi Violympic cáp tỉnh mắc nhõn câu này !!!
Đúng 0
Bình luận (0)
4 phần tử nha chú ý câu hỏi hỏi số pt cơ mà
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)