bài pascal
Khởi tạo mảng a có n phần tử
1. Đếm số lần 2 phần tử chẳn liền kề
2. Tìm vị trí phần tử lẻ lớn nhất trong mảng
3. Đếm số phần tử đỉnh
Những câu hỏi liên quan
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Đúng 1
Bình luận (0)
- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- In ra tất cả phần tử của mảng vừa nhập
- Đếm xem có bao nhiêu phần tử có giá trị là ước của 10.
- In ra các phần tử ở vị trí chẵn.
- In ra các phần tử ở vị trí lẻ.
Program HOC24;
var d,i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do write(a[i],' ');
writeln;
d:=0;
for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri la uoc cua 10');
write('Cac phan tu o vi tri chan la: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
writeln;
write('Cac phan tu o vi tri le la: ');
for i:=1 to n do if i mod 2=1 then write(a[i],' ');
readln
end.
Đúng 1
Bình luận (0)
Cho mảng A=(a1,a2,..,an)(a là số nguyên,i=1,2,..,n), 3<N≤100.Đếm có bao nhiêu phần tử chẵn ở vị trí lẻ trong mảng A
VD:N=6
A(2,3,1,2,8,6)
⇒dem=2
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
dem:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then dem:=dem+1;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal nhập vào mảng 1 chiều gồm n phần tử số nguyên đưa ra màn hình:
1 phần tử nhỏ nhất của mảng
2phan tu chăn , phan tư lẻ của mảng
3 tính tổng phẩn tử chẵn
4 tính tổng phần tử lẻ
5 đếm ptu chẵn, ptu lẻ
tham khảo
#include <bits/stdc++.h>
using namespace std;
long long n,i,nn,t1,t2,dem1,dem2,a[1000];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=1; i<=n; i++) nn=min(nn,a[i]);
cout<<nn<<endl;
for (i=1; i<=n;i++)
if (a[i]%2==0) cout<<a[i]<<" ";
cout<<endl;
for (i=1; i<=n;i++)
if (a[i]%2!=0) cout<<a[i]<<" ";
cout<<endl;
t1=0;
t2=0;
dem1=0;
dem2=0;
for (i=1; i<=n; i++)
{
if (a[i]%2==0)
{
t1+=a[i];
dem1++;
}
else
{
t2+=a[i];
dem2++;
}
}
cout<<t1<<" "<<dem1<<endl;
cout<<t2<<" "<<dem2;
return 0;
}
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,min,t1,t2,dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do if min>a[i] then min:=a[i];
writeln(min);
writeln('Cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t1,' ',t2);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then dem1:=dem1+1
else dem2:=dem2+1;
end;
writeln(dem1,' ',dem2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 mảng D có n phần tử ( n nhỏ hơn hoặc bằng 20 ) . Đếm số phần tử lẻ trong mảng D
Program HOC24;
var i,n,dem: byte;
d: array[1..20] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('D[',i,']='); readln(d[i]);
end;
dem:=0;
for i:=1 to n do if d[i] mod 2<>0 then dem:=dem+1;
write('Co ',d,' phan tu le trong mang');
readln
end.
Đúng 1
Bình luận (0)
Cho mảng 1 chiều A có tối đa 100 phần tử các phần tử có kiểu số nguyên.
a. Nhập số nguyên N và mảng A gồm N số nguyên
b. Xuất mảng.
c. tính và đưa ra màn hình số phần tử bé hơn 2 số liền kề.
d. tính và đưa ra màn hình số phần tử lớn hơn 2 số liền kề.
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
dem1:=0;
for i:=1 to n do
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then dem1:=dem1+1;
dem2:=0;
for i:=1 to n do
if (a[i]<a[i-1]) and (a[i]<a[i+1]) then dem2:=dem2+1;
writeln(dem1);
writeln(dem2);
readln;
end.
Đúng 0
Bình luận (0)
Nhập từ bàn phím mảng a có n số nguyên. In ra màn hình mảng a vừa nhập, in phần tử lớn nhất, in phần tử nhỏ nhất của mảng, in vị trí phần tử lớn nhất, in vị trí phần tử nhỏ nhất của mảng.
#include <bits/stdc++.h>
using namespace std;
const long long maxint=1e6;
long long a[maxint],i,n,ln;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
ln=a[1];
for (i=1; i<=n; i++)
ln=max(ln,a[i]);
for (i=n; i>=1; i--)
if (ln==a[i])
{
cout<<i;
break;
}
return 0;
}
Đúng 0
Bình luận (0)
Cho mảng A gồm n phần tử là các số nguyên a, Nhập vào mảng A từ bàn phím b, tính tổng của các phần tử chẵn c, tính tổng của các phần tử lẻ d, đếm xem có bao nhiêu phần tử trong dãy chia hết cho 3
nhập vào mảng số nguyên a với n phần tử (<=10000) pascal đếm số lượng phần tử x có trong dãy a với x đc nhập từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem,a;
int main()
{
cin>>n>>x;
dem=0;
for (i=1; i<=n; i++)
{
cin>>a;
if (a==x) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)