Những câu hỏi liên quan
Câu 1:Nhập vào mảng a gồm n phần tử là số nguyên(n nhập từ bàn phím).
Câu 2: In ra dãy vừa nhập
Câu 3: In ra các số lẻ
Câu 4: Tính tổng các số vừa nhập
Câu 5: Tính trung bình cộng các số vừa nhập
mk cần gấp lắm ạ,làm ơn giúp mk:(((
uses crt;
var a:array[1..100]of integer;
i,n,t: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;
for i:=1 to n do
if (a[i] mod 2<>0) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
writeln(t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Cho dãy số 1, 5, 9, 13, 17, ....., 101, 105, ......., n
a. In ra 10 số hạng đầu tiên của dãy
b. Tính tổng của dãy số trên trong đó số cuối cùng là số bé hơn 200
c. Nhập 1 số n bất kì, em hãy viết lệnh kiểm tra xem số n có thuộc dãy số trên hay ko, nếu thuộc hãy cho biết trung bình cộng của dãy số đó với n vừa nhập vào. Chạy và kiểm tra kết quả với n=2017.
cho dãy số 1 2 3 4 5 8 13 21 34 .hãy tìm xem 8 là số trung bình cộng của năm số nào ?
số 8 là trung bình cộng của các số là 2;1;13;21;3
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số A gồm N số thực ( N < = 20 ) . Hãy tính trung bình cộng các số chia hết cho 3 trong dãy A và đưa kết quả ra màn hình .
uses crt;
var a:array[1..20]of integer;
i,n,tb,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
tb:=tb+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so chia het cho 3 la: ',tb/dem:4:2);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:
1. Hiển thị dãy vừa nhập trên 1 hang.
2. Tính tổng các phần tử trong mảng.
3. Tính trung bình cộng các phần tử trong mảng.
4. Tính tổng các số âm và số dương trong mảng.
5. Tính tổng các số chẵn và số lẻ trong mảng.
6. Đếm các số âm, số dương, số chẵn, số lẻ trong mảng.
program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng dãy số n số phần tử nguyên và cho biết có bao nhiêu dãy số là chẵn? Tính trung bình cộng của dãy số còn nhập
var a:array[1..1000] of integer;
i,n,d:integer;
s:longint;
tbc:real;
begin
write('n = ');readln(n);
For i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
if a[i] mod 2 = 0 then d:=d+1;
end;
tbc:=s/n;
writel('Co ',d,' so chan');
write('Trung binh cong cua day so la ',tbc:10:2);
readln
end.
Đúng 2
Bình luận (0)
Cho dãy số gồm N số nguyên a[i].Hãy tìm số nguyên xuất hiện nhiều nhất.
vd: 8
5 8 3 5 6 9 3 2 thì in ra 3
5
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,c[1000],k;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
c[a[i]]+=1;
k=0;
for (i=1; i<=n; i++) k=max(k,c[i]);
for (i=1; i<=n; i++) if (k==c[i]) cout<<i<<" "'
return 0;
}
Đúng 0
Bình luận (1)
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Đúng 0
Bình luận (0)
Cho dãy số liệu thống kê (đơn vị là kg): 1, 2, 3, 4, 5 (1) Dãy (1) có trung bình cộng
x
3kg và độ lệch chuẩn s
2
kg. Cộng thêm 4 kg vào mỗi số liệu thống kê của dãy (1), ta được dãy số liệu thống kê (đã hiệu chỉnh) sau đây (đơn vị là kg): 5, 6, 7, 8, 9.(2) Khi đó ta có: Độ lệch chuẩn của dãy (2) là: A.
2
kg B.
3
kg C.
4
k...
Đọc tiếp
Cho dãy số liệu thống kê (đơn vị là kg): 1, 2, 3, 4, 5 (1)
Dãy (1) có trung bình cộng x = 3kg và độ lệch chuẩn s = 2 kg.
Cộng thêm 4 kg vào mỗi số liệu thống kê của dãy (1), ta được dãy số liệu thống kê (đã hiệu chỉnh) sau đây (đơn vị là kg): 5, 6, 7, 8, 9.(2)
Khi đó ta có: Độ lệch chuẩn của dãy (2) là:
A. 2 kg
B. 3 kg
C. 4 kg
D. 6 kg
Cách 1. Ta có: Khi cộng vào mỗi số liệu của một dãy số liệu thống kê cùng một hằng số thì phương sai và độ lệch chuẩn không thay đổi. Do đó độ lệch chuẩn của dãy (2) vẫn là 2 kg.
Cách 2. Tính trực tiếp độ lệch chuẩn của dãy (2).
Đáp án: A.
Đúng 0
Bình luận (0)