cho mảng 1 chiều A gồm N phần tử ( N= 100) các phần tử có kiểu số nguyên. a.Nhập số nguyên N vào mảng A gồm N số nguyên.
b.Tính tổng các phần tử dương trong mảng.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t+=x;
}
cout<<t;
return 0;
}
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Cho biết trong mảng có bao nhiêu phần tử là số nguyên tố?
uses crt;
var a:array[1..100]of integer;
i,n,kt,dem,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 a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then inc(dem);
end;
writeln('So phan tu la so nguyen to la: ',dem);
readln;
end.
cho mảng 1 chiều gồm n phần tử in ra màn hình các phần tử chính phương của mảng
khai báo tự viết
for i:=1 to n do
if sqr(trunc(sqrt(a[i])))=a[i] then write(a[i]);
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=1000);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln('So phan tu chia het cho 3 la: ',dem);
readln;
end.
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Tính tổng các phần tử có giá trị lớn nhất trong mảng?
uses crt;
var a:array[1..100]of integer;
i,n,t,max: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];
t:=0;
for i:=1 to n do
if max=a[i] then t:=t+a[i];
writeln('Tong cac phan tu co gia tri lon nhat la: ',t);
readln;
end.
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.
Viết chương trình: Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình. Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình. Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình. Cần gấp ạaa
Bài 2:
Uses crt;
Var a:array[1..200]of integer;
i,n,t:integer;
Begin
Clrscr;
Write('Nhap n='); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']='); readln(a[i]);
End;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Mang A vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
readln;
end.
Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
sum := 0;
for i := 1 to N do
sum := sum + A[i];
writeln('Tong cac phan tu trong mang la: ', sum);
readln;
end.
Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
sum := A[1] + A[N];
writeln('Tong cua phan tu dau va cuoi mang la: ', sum);
readln;
end.
Bài 1
Sửa đề: Thêm điều kiện của các phần tử trong mảng là số
Var a:array[1..1000] of real;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:10:2);
Readln
End.
1 Viết chương trình nhập mảng A gồm n phần tử nguyên. Cho biết mảng A có phải là mảng toàn phần tử chẵn ko?
2.viết chương trình nhập mảng A gồm n phần tử nguyên. Tìm các mảng phần tử duy nhất có trong mảng
Cảm ơn ạ!!
Bài 1:
uses crt;
var a:array[1..100]of integer;
n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n do
if a[i] mod 2<>0 then kt:=1;
if kt=0 then writeln('Thoa man')
else writeln('Khong thoa man');
readln;
end.
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Cho biết có bao nhiêu phần tử dương tại vị trí lẻ?
uses crt;
var a:array[1..100]of integer;
i,n,dem: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]>0) and (i mod 2=1) then inc(dem);
writeln('So phan tu duong o vi tri le la: ',dem);
readln;
end.
