1. Viết chương trình nhập n số, Tính tổng, tính tổng phân số, tính tổng phân số chẵn, tính tổng phân số lẻ, tính giá trị trung bình của n số đã nhập.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
5 tháng 5 2021
Bài 1:
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 a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
5 tháng 5 2021
Bài 2:
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 a[i] mod 2=0 then write(a[i]:4);
readln;
end.
12 tháng 5 2022
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
nn:=a[1];
ln:=a[1];
for i:=1 to n do
begin
t:=t+a[i];
if nn>a[i] then nn:=a[i];
if ln<a[i] then ln:=a[i];
end;
writeln(t);
writeln(ln);
writeln(nn);
writeln(t/n:4:2);
readln;
end.
DN
7 tháng 3 2022
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
8 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if (n%2==0)
{
t=0;
for (i=1; i<=n; i++) if (i%2==0) t+=i;
}
else
{
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
}
cout<<t;
return 0;
}
VQ
12 tháng 3 2022
tk
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);
readln;
end.
14 tháng 3 2022
uses crt;
var n,i,t,dem:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
end
else
begin
t:=0;
dem:=0;
for i:=1 to n do
if i mod 2=1 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(t/dem:4:2);
end;
readln;
end.
11 tháng 5 2021
Bài 1:
uses crt;
var n,t1,t2,t3,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n-1 do
begin
if i mod 2=1 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so le nho hon ',n,' la: ',t1);
writeln('Tong cac so chan nho hon ',n,' la: ',t2);
t3:=0;
for i:=1 to 2*n do
t3:=t3+i;
writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);
readln;
end.
30 tháng 3 2021
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
30 tháng 3 2021
Câu 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of 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
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
ML
19 tháng 3 2023
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
1 tháng 5 2023
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
program Tong_phan_so;
varn, i, x : Integer;
tong, tong_phan_so, tong_phan_so_chan, tong_phan_so_le : Real;
begin
Write('Nhap n so: '); Readln(n);
tong := 0;
tong_phan_so := 0;
tong_phan_so_chan := 0;
tong_phan_so_le := 0;
for i := 1 to n do
begin
Write('Nhap so thu ', i, ': '); Readln(x);
tong := tong + x;
tong_phan_so := tong_phan_so + x/100;
if x mod 2 = 0 then
tong_phan_so_chan := tong_phan_so_chan + x/100
else
tong_phan_so_le := tong_phan_so_le + x/100;
end;
Writeln('Tong cua ', n, ' so la: ', tong:0:0);
Writeln('Tong phan so cua ', n, ' so la: ', tong_phan_so:0:2);
Writeln('Tong phan so chan cua ', n, ' so la: ',tong_phan_so_chan:0:2);
Writeln('Tong phan so le cua ', n, ' so la: ', tong_phan_so_le:0:2);
Writeln('Gia tri trung binh cua ', n, ' so la: ',tong_phan_so/n:0:2);
end.