viết chương trình nhập vào các điểm thi windows, winword,winword,execl.Tính điểm trung bình(lấy giá trị có 1 số lẻ thập phân)
0347180518 kb zalo nha
viết chương trình nhập vào điểm trung bình môn tin của các bạn trg lớp sau đó in điểm trung bình cao nhất môn tin [lấy 1 chữ số ở phần thập phân ]
uses crt;
var i,n:byte;Max:real;
a:array[1..50]of real;
begin
clrscr;
write('nhap so hoc sinh cua lop:');readln(n);
for i:=1 to n do
begin
write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('diem trung binh mon tin cao nhat la: ',Max);
readln;
end.
uses crt;
var i,n:byte;Max:real;
a:array[1..50]of real;
begin
clrscr;
write('nhap so hoc sinh cua lop:');readln(n);
for i:=1 to n do
begin
write('nhap diem trung binh mon tin cho hoc sinh thu ',i,':');readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('diem trung binh mon tin cao nhat la: ',Max:0:1);
readln;
end.
Viết chương trình nhập vào mảng A gồm N số nguyên, xuất ra giá trị trung bình nhất & tổng các giá trị lẻ của A.
#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%2!=0) t=t+x;
}
cout<<t;
return 0;
}
Viết chương trình nhập vào điểm 2 môn Toán, Văn từ bàn phím. Điểm Anh văn được gán bằng 8.0 điểm. Sau đó tính tổng điểm, điểm trung bình cộng 3 môn học trên và đưa kết quả ra màn hình. (Điểm trung bình cộng lấy 1 số thập phân.) lẹ cho mình nha cảm mưn mn.
Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết chương trình tìm giá trị lớn nhất( in ra vị trí chứa phần tử có giá trị lớn nhất )của dãy số gồm n số nguyên được nhập từ bàn phím CẦN GẤP CÂU TRẢ LỜI Ạ:((
Bài 23
var a:array[1..1000] of integer;
i,n:integer;
s,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];
end;
tbc:=s/n;
writeln('Gia tri trung binh la ',tbc:10:2);
write('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i] > tbc then write(a[i]:8);
readln
end.
var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
for i:=1 to n do
begin
if max=a[i] then write(max,' o vi tri thu ',i);
break;
readln
end.
viết chương trình nhập vào số nguyên dương n và dãy a có n số nguyên a1,a2,a3,...,an. tính giá trị trung bình của các số có giá trị dương ở vị trí lẻ ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
dem=0;
for (i=1; i<=n; i++)
if ((a[i]>0) and (i%2==1))
{
t+=a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);
return 0;
}
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.
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.
Mọi người giúp mik vs nhé, mik cần gấp, sắp thi rồi. Mik cảm ơn trc ạ: C1: nhập vào 1 mảng gồm n phần tử, tính giá trị trung bình của dãy số đó. C2: Viết chương trình nhập dãy n số và in ra tổng các số chẵn, tổng các số lẻ trong dãy cần nhập. C3: viết chương trình nhập dãy n số và cho biết số nhỏ nhất trong các số vừa nhập là số thư mấy?
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 .
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.
Câu 1:
Program Tin_hoc;
Uses crt;
Var i,n,tong:integer;
tb:real;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
tong:=0;
Writeln('Nhap ',n,' phan tu cua day:');
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
tong:=tong+a[i];
end;
tb:=tong/n;
Writeln('Gia tri trung binh cua day la: ',tb:0:4);
readln;
end.
Viết chương trình nhập vào 1 mảng số nguyên. In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó.
Var a:array[1..100] of longint;
tb:real;
i,n:integer;
s:longint;
begin
write('Nhap vao so luong so nguyen '); readln(n);
s:=0;
for i:=1 to n do
begin
write('Nhap vao so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
tb:=s/n;
writeln('Gia tri trung binh cua mang do la ',tb:10:2);
writeln('Cac phan tu lon hon gia tri trung binh la');
for i:=1 to n do
begin
if a[i] > tb then write(a[i]:10);
end;
readln;
end.
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
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.
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.
Bài 3:
uses crt;
var a:array[1..100]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.