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
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ố
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 1 dãy số nguyên 10 phần tử. Tính tổng các phần tử trong dãy số
#include <bits/stdc++.h>
using namespace std;
int n=10,i,x,t;
int main()
{
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t+=x;
}
cout<<t;
}
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.
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.
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 !!!
4 phần tử nha chú ý câu hỏi hỏi số pt cơ mà
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 :(((
Viết tập hợp các số tự nhiên có 3 chữ số từ 3 số : 2;3;7.Hãy tính tổng các phần tử của tập hợp vừa viết bằng cách hợp lí
uses crt;
var a,b,c:array[1..100]of integer;
i,n,dem,dem1,kt,j: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 sqrt(a[i])=trunc(sqrt(a[i])) then
begin
inc(dem);
b[dem]:=a[i];
end;
dem1:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end;
end;
if dem=0 then writeln('Trong day khong co so chinh phuong')
else begin
writeln('Cac so chinh phuong trong day la: ');
for i:=1 to dem do
write(b[i]:4);
end;
if dem1=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem1 do
write(c[i]:4);
end;
readln;
end.