viết chương trình nhập vào 1 mảng số nguyên sau đó đếm xem có bao nhiêu số lớn hơn 5 trong dãy số đã nhập?
Viết chương trình nhập 10 số nguyên -In ra dãy số đã nhập trên hàng - tính tổng các số nguyên âm đã nhập - đếm xem có bao nhiêu số thoả mãn:"lớn hơn 6 và nhỏ hơn 9"
program TinhTongSo;
uses crt;
var
a: array [1..10] of integer;
i, tong, dem: integer;
begin
clrscr;
writeln('Nhap day 10 so nguyen: ');
for i := 1 to 10 do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
end;
writeln('Day so da nhap tren mot hang: ');
for i := 1 to 10 do
write(a[i], ' ');
tong := 0;
for i := 1 to 10 do
if a[i] < 0 then
tong := tong + a[i];
writeln('Tong cac so nguyen am: ', tong);
dem := 0;
for i := 1 to 10 do
if (a[i] > 6) and (a[i] < 9) then
dem := dem + 1;
writeln('So luong cac so thoa dieu kien "lon hon 6 va nho hon 9": ', dem);
readln;
end.
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:
- In ra mảng vừa nhập
- Tính tổng các số chẵn của mảng
- Đếm xem trong mảng có bao nhiêu số bằng 10.
Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:
- In ra mảng vừa nhập
- Tính tổng các số chẵn của mảng
- Đếm xem trong mảng có bao nhiêu số bằng 10.
#include <iostream>
using namespace std;
int main()
{
int a[100][100],i,j,m,n;
cout<<"Nhap so dong cua mang:"; cin>>n;
cout<<"Nhap so cot cua mang:"; cin>>m;
for (i=1; i<=n; i++)
for (j=1; j<=m; j++)
{
cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
}
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
cout<<a[i][j]<<" ";
cout<<endl;
}
return 0;
}
viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau
A nhập mảng
B in mảng
C đếm xem có bao nhiêu phần tử = 0 trong dãy
D tính tổng các phần tử chẵn trong dãy
giúp vs ạ
uses crt;
var a:array[1..1000]of integer;
i,n,dem,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=1000);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until abs(a[i])<=1000;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]=0 then inc(dem);
writeln('So phan tu bang 0 la: ',dem);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu chan la: ',t);
readln;
end.
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
Mọi người giúp mình giải xin cảm ơn
program tinh_tong_va_dem_so_x;
const
MAX = 100;
var
a: array[1..MAX] of integer;
n, tong, x, dem, i: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;
tong := 0;
for i := 1 to n do
begin
tong := tong + a[i];
end;
writeln('Tong cac phan tu trong mang la: ', tong);
write('Nhap gia tri x: ');
readln(x);
dem := 0;
for i := 1 to n do
begin
if a[i] = x then
begin
dem := dem + 1;
end;
writeln('So lan xuat hien cua ', x, ' trong mang la: ', dem);
readln;
end.
1. Viết chương trình thực hiện các công việc sau:
a. Nhập vào 1 mảng A gồm 15 số nguyên
b. In ra thành 1 dãy số hàng ngang với khoảng cách là 2
c. Tính tổng các phần tử trong mảng
d. Đếm xem trong mảng có bao nhiêu phần tử lớn hơn 0?
e. In ra phần tử có giá trị lớn nhất trong mảng
f. In ra chỉ số của phần tử có giá trị lớn nhất trong mảng
g. Sắp xếp thành dãy số tăng dần
Câu 4. Viết chương trình nhập một dãy gồm n số từ bàn phím, đếm xem có trong đó có bao nhiêu số lớn hơn 10 và nhỏ hơn 20. Tính tổng các số lớn hơn 10 và nhỏ hơn 20 đó. In kết quả tính được ra màn hình.
Câu 5. Viết chương trình nhập một dãy gồm n số nguyên từ bàn phím, đếm xem có trong đó có bao nhiêu số là số chẵn. Tính tổng các số chẵn đó. In kết quả tính được ra màn hình.
Mọi người giúp em với ạ! Em cảm ơn nhiều!
Câu 4:
uses crt;
var a:array[1..100]of integer;
i,n,dem,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;
t:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu lon hon 10 va nho hon 20 la: ',dem);
writeln('Tong cac phan tu lon hon 10 va nho hon 20 la: ',t);
readln;
end.
Câu 5:
uses crt;
var a:array[1..100]of integer;
i,n,dem,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;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)
2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 0
3.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi số
"giải giúp e vs 19h 22/7 e nộp r"