Nhập dãy số a1,a2,...,an , với n>1. Tìm GTNN của các số hạng dương
Những câu hỏi liên quan
nhập số nguyên dương n in ra tổng các số nguyên dương n và dãy số a1 a2...an. Hãy in ra số lớn nhất (max) của dãy số đó
Bài 1
Var a:array:[1..1000] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so la ',s);
Readln
End.
Đúng 1
Bình luận (0)
giúp em với ạ!
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số A1, A2,...An. đưa ra màn hình tổng các số nguyên chẵn của dãy số.
Program HOC24;
var i,n: byte;
A: array[1..100] of integer;
t: longint;
begin
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];
write('Tong cac so chan la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Giúp em vs
Bài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.
Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ
bàn phím và N<=100.
Bai 2:
uses crt;
var a:array[1..100]of integer;
i,n,t,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
for i:=1 to n do
if nn>a[i] then nn:=a[i];
write(nn);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn hình
Đọc tiếp
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
Đúng 1
Bình luận (0)
xây dựng bài toán cho các bài toán sau:
a)nhập vào số nguyên N và dãy các số a1,a2,...,an.hãy tính tổng các số dương có trong dãy
b)nhập vào số nguyên N và dãy các số a1,a2,...,an.hãy đếm các số dương có trong dãy
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình :
a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình.
b/ Đếm xem trong dãy số đó có bao nhiêu số 10
c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ
d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy
e/ In ra màn hình các số lẻ
f/ In ra màn hình các số chẵn và lớn hơn 10
Đọc tiếp
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình :
a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình.
b/ Đếm xem trong dãy số đó có bao nhiêu số >10
c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ
d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy
e/ In ra màn hình các số lẻ
f/ In ra màn hình các số chẵn và lớn hơn 10
uses crt;
var a:array[1..100]of integer;
i,n,dem,dem1,dem2,t:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>10 then inc(dem);
writeln('So phan tu lon hon 10 la: ',dem);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln('So luong so chan la: ',dem1);
writeln('So luong so le la: ',dem2);
t:=0;
s:=1;
for i:=1 to n do
begin
if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];
if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];
end;
writeln('Tong cac so o vi tri chan co gia tri le la: ',t);
writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);
writeln('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
writeln('Cac so chan va lon hon 10 la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);
readln;
end.
Đúng 2
Bình luận (1)
viết chương trình nhập vào các số nguyên dương N,dãy a1,a2 ,...an đưa ra số lượng số lẻ và số chẵn có trong dãy
n = int(input("Nhập số phần tử của dãy: "))
a = [ ]
# đếm số chẵn
even_count = 0
# đếm số lẻ
odd_count = 0
for i in range(n):
a.append(int(input("Nhập phần tử thứ {0}: ".format(i+1))))
for i in a:
if i % 2 == 0:
even_count += 1
else:
odd_count += 1
print("Số lượng số chẵn trong dãy: ", even_count)
print("Số lượng số lẻ trong dãy: ", odd_count)
Đúng 1
Bình luận (0)
n = int(input("Nhập số phần tử của dãy: "))
a = [ ]
# đếm số chẵn
even_count = 0
# đếm số lẻ
odd_count = 0
for i in range(n):
a.append(int(input("Nhập phần tử thứ {0}: ".format(i+1))))
for i in a:
if i % 2 == 0:
even_count += 1
else:
odd_count += 1
print("Số lượng số chẵn trong dãy: ", even_count)
print("Số lượng số lẻ trong dãy: ", odd_count)
Đúng KO Ạ MK KO CHẮC
Đúng 0
Bình luận (0)
Nhập dãy n số nguyên A1,...An (n
Xem chi tiết
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;
writeln('Chi so cua so hang cuoi cung la: ',n);
readln;
end.
Đúng 2
Bình luận (0)
cho N và dãy số nguyên a1,a2,...,aN và một số nguyên dương x. Hãy tính tổng các số hạng có giá trị
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,t,a;
int main()
{
cin>>n>>x;
t=0;
for (i=1; i<=n; i++)
{
cout<<a;
if (a==x) t=t+a;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)