Viết chương trình nhập vào n số tư nhiên x và đếm xem có bao nhiêu giá trị x lẻ . Xuất kết quả ra màn hình.
#Tin
Bài 1 :Viết chương trình nhập vào n số tư nhiên x và đếm xem có bao nhiêu giá trị x chẵn. Xuất kết quả ra màn hình
Giúp mình với please
#Tin_8
viết chương trình nhập vào A có n phần tử a,xuất và in ra màn hình b,Đếm xem mảng vừa nhập có bao nhiêu số lẻ c,Tìm số lớn nhất trong mảng vừa nhập và đưa ra màn hình
var a:array[1..1000] of integer;
i,n,d,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then d:=d+1;
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
writeln('Co ',d,' so le');
write('So lon nhat la ',max);
readln
end.
Viết chương trình nhập vào mảng A gồm 20 phần tử số nguyên.Hãy đếm xem trong mảng A vừa nhập có bao nhiêu chữ số 3 xuất hiện và thông báo kết quả ra màn hình
Var a:array[1..20] of integer;
i,n,d:integer;
Begin
For i:=1 to 20 do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
if a[i] = 3 then d:=d+1;
End;
Write('Co ',d,' chu so 3');
Readln
End.
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
Viết chương trình nhập vào dãy số nguyên a có n phần tử.
a. Xuất các phần tử đã nhập ra màn hình.
b. Xuất ra màn hình các số dương.
c. Tính tổng các phần tử có trong dãy a.
d. Đếm số lượng số chẵn.
e. Cho biết có bao nhiêu số có giá trị bằng k và cho biết vị trí các số đó.
f. Tìm giá trị lớn nhất.
a:
#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]<<" ";
return 0;
}
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],dem,t;
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
dem=0; t=0;
for (int i=1; i<=n; i++)
if (A[i]%2==0) dem++;
else t+=A[i];
cout<<dem<<endl;
cout<<t;
return 0;
}
Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, đếm và in ra kết quả trong dãy có bao nhiêu số chẵn. Bài 2: Viết chương trình nhập vào một xâu ký tự in ra màn hình độ dài của xâu.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
string st;
int d;
int main()
{
getline(cin,st);
d=st.length();
cout<<d;
return 0;
}
Bài 1:
Var so,i,n,dem:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(so);
If so mod 2 = 0 then dem:=dem+1;
End;
Write('Co ',dem,' so chan');
Readln;
End.
Bài 2:
Var st:string;
Begin
Write('Nhap vao xau ki tu ');readln(st);
Write(' Xau vua nhap co do dai la ',length(st));
Readln;
End.
viết chương trình nhập vào mảng a gồm n phần tử số nguyên a1...an đếm xem trong mảng có bao nhiêu phần tử chẵn và tích tổng các giá trị của phần tử chẵn và thông báo ra màn hình
var a:array[1..100] of integer;
i,n,S,d:byte;
begin
write(' n = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
d:=0; S:=0;
for i:=1 to n do if A[i] mod 2 = 0 then begin
d:=d+1;
S:=S+A[i];
end;
write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);
readln
end.