Những câu hỏi liên quan
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 . A/sắp xếp mảng A để đc 1 mảng không tăng, không giảm
B/ tính trung bình cộng của mảng
C/ đưa ra tất cả các vị trí có giá trị lớn nhất trong mảng, nhỏ nhất trong mảng
D/ tìm trong mảng phần tử có giá trị bằng K ( với K đc nhập từ bàn phím)
E/ đếm trong mảng có bao nhiêu phần tử bằng K
Đọc tiếp
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 . A/sắp xếp mảng A để đc 1 mảng không tăng, không giảm
B/ tính trung bình cộng của mảng
C/ đưa ra tất cả các vị trí có giá trị lớn nhất trong mảng, nhỏ nhất trong mảng
D/ tìm trong mảng phần tử có giá trị bằng K ( với K đc nhập từ bàn phím)
E/ đếm trong mảng có bao nhiêu phần tử bằng K
program so_lon_nhat;
uses crt;
var a: array[1..100] of integer;
i,n,max,k,dem: integer;
s,tbc: real;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
writeln(' nhap so can tim:'); readln(k);
max:=a[1];
i:=1;
dem:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
tbc:=s/n;
if a[i]=k then dem:=dem+1;
end;
writeln(' so lon nhat trong day tren la:',max);
while (i<n) and (a[i]<>k) do i:=i+1;
if a[i]=k then writeln(' phan tu thu ', i ,' bang ',k)
else writeln(' k tim dc phan tu',k);
writeln(tbc:6);
writeln('co', dem, ' phan tu', k);
readln
end.
Đúng 2
Bình luận (0)
25 tháng 2 2021 lúc 20:27
Cho số nguyên dương N ( N ≤ 250 ) và dãy n số nguyên dương A1 A2,..., An mỗi số đều không vượt quá 500. Yêu cầu:1) Đếm số lượng các phần tử có giá trị lẻ trong dãy số A.2) Tính tổng giá trị các phần tử đứng vị trí chẵn trong dãy số A3) Tính tổng giá trị các phần tử đứng vị trí lẻ trong dãy số A.4) Tính tổng giá trị các phần tử là số chẵn đứng ở vị trí chẵn trong dãy A.5) Tính tổng giá trị các phần tử là số lẻ đứng ở vị trí lẻ trong dãy A.6) Tính trung bình cộng các phần tử trong dãy.
Đọc tiếp
Cho số nguyên dương N ( N ≤ 250 ) và dãy n số nguyên dương A1 A2,..., An mỗi số đều không vượt quá 500. Yêu cầu:
1) Đếm số lượng các phần tử có giá trị lẻ trong dãy số A.
2) Tính tổng giá trị các phần tử đứng vị trí chẵn trong dãy số A
3) Tính tổng giá trị các phần tử đứng vị trí lẻ trong dãy số A.
4) Tính tổng giá trị các phần tử là số chẵn đứng ở vị trí chẵn trong dãy A.
5) Tính tổng giá trị các phần tử là số lẻ đứng ở vị trí lẻ trong dãy A.
6) Tính trung bình cộng các phần tử trong dãy.
uses crt;
var a:array[1..250]of integer;
i,n,dem,t,t1,t2,t3,t4:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=250);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<a[i]) and (a[i]<=500);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('So phan tu co gia tri le la: ',dem);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu co chi so chan la: ',t);
t1:=0;
for i:=1 to n do
if i mod 2=1 then t1:=t1+a[i];
writeln('Tong cac phan tu co chi so le la: ',t1);
t2:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i] mod 2=0) then t2:=t2+a[i];
writeln('Tong cac phan tu chan co chi so chan la: ',t2);
t3:=0;
for i:=1 to n do
if (i mod 2=1) and (a[i] mod 2=1) then t3:=t3+a[i];
writeln('Tong cac phan tu co chi so le la: ',t3);
t4:=0;
for i:=1 to n do
t4:=t4+a[i];
writeln('Trung binh cong cac so trong day la: ',t4/n:4:2);
readln;
end.
Đúng 2
Bình luận (0)
Câu 1 khai báo dãy a gồm n(n>=300) số nguyên dương Câu 2 khai báo dãy a gồm n(n>=300) số nguyên dương mỗi số có giá trị nhỏ hơn 500 a tạo giá trị mảng bằng hàm random B tính tổng các số có giá trị bằng 150
Câu 2:
uses crt;
var a:array[1..300]of integer;
i,n,t:integer;
begin
clrscr;
randomize;
cin>>n;
for i:=1 to n do a[i]:=random(500);
t:=0;
for i:=1 to n do if a[i]=150 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Cho một dãy gồm n số nguyên dương A1,A2,…,An(N≤105,Ai≤109) và số K.Hãy in số nhỏ nhất lớn hơn K cùng chỉ số của nó, nếu có nhiều số nhỏ nhất lớn hơn K thì in ra các chỉ số của nó.Input:Dòng đầu chứa số n và K, dòng thứ hai chứa n số nguyên dương A1,A2,…,An.Output:Dòng đầu chứa số có giá trị nhỏ nhất lớn hơn K, dòng thứ hai chứa các chỉ số của nó.InputCopy6 3591 32 43 43 451 54OutputCopy432Lưu ý :dùng c++
Đọc tiếp
Cho một dãy gồm n số nguyên dương A1,A2,…,An
(N≤105,Ai≤109) và số K.
Hãy in số nhỏ nhất lớn hơn K cùng chỉ số của nó, nếu có nhiều số nhỏ nhất lớn hơn K thì in ra các chỉ số của nó.
Input:
Dòng đầu chứa số n và K, dòng thứ hai chứa n số nguyên dương A1,A2,…,An.
Output:
Dòng đầu chứa số có giá trị nhỏ nhất lớn hơn K, dòng thứ hai chứa các chỉ số của nó.
Input
Copy
6 35
91 32 43 43 451 54
Output
Copy
43
2
Lưu ý :dùng c++
Tạo mảng A gồm n (\(n\le100\)) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300.Viết chương trình tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước.
uses crt;
var a:array[1..100]of integer;
i,n,t,k:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (1)
Uses crt;
Var A: array[1..100] of longint;
n，k，i，s: longint;
Begin
Clrscr;
Write(‘Nhap n，k: ‘); Readln(n，k);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod k = 0 then s:=s+A[i];
End;
Write(s);
Readln
End.
Đúng 0
Bình luận (1)
Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300.Viết chương trình C ++ tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,k,t;
int main()
{
cin>>n>>k;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t+=x;
}
cout<<t;
return 0;
}
Đú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)
Cho số n dương N và dãy A có dạng a1 a2..an .Tìm số lượng phần tử có giá trị lớn hơn 10 và nhỏ hơn 30 tính tổng của ch
Xem chi tiết
Sây dựng thuật toán giải bài toán bằng cách liệt kê hoặc sô đồ khối
N số nguyên dương a1 a2 a3 ...N
Tính tổng các phần tử trong giãy a
Tìm số nhỏ nhất trong dãy a và chỉ số của nó
Sắp xếp lại dãy a dãy không
Xem chi tiết