VCT in ra màn hình giá trị trung bình của 10 số nguyên bất kỳ.
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
KV
20 tháng 4 2022
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
19 tháng 12 2021
3:
#include <bits/stdc++.h>
using namespace std;
double x,y,z;
int main()
{
cin>>x>>y>>z;
cout<<x+y+z<<endl;
cout<<x*y*z;
return 0;
}
4 tháng 5 2023
program TimMinMaxTrungBinh;
var
N, i, max, min, sum: integer;
a: array[1..50] of integer;
TB, minTB, maxTB: real;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
sum := sum + a[i];
end;
max := a[1];
min := a[1];
for i := 2 to N do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
TB := sum / N;
minTB := TB;
maxTB := TB;
for i := 1 to N do
begin
if (a[i] < TB) and (a[i] < minTB) then
minTB := a[i];
if (a[i] > TB) and (a[i] > maxTB) then
maxTB := a[i];
end;
writeln('Gia tri lon nhat la: ', max);
writeln('Gia tri nho nhat la: ', min);
writeln('Gia tri trung binh la: ', TB:2:2);
if minTB = TB then
writeln('Khong co gia tri nao nho hon TB')
else
writeln('Gia tri nho nhat < TB la: ', minTB);
if maxTB = TB then
writeln('Khong co gia tri nao lon hon TB')
else
writeln('Gia tri lon nhat > TB la: ', maxTB);
readln;
end.
24 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln('Trung binh cua day so la: ',tb:4:2);
writeln('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i]>tb then write(a[i]:4);
readln;
end.
KV
20 tháng 4 2022
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
KV
6 tháng 5 2021
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.
CH
25 tháng 4 2023
Đây là một chương trình Python để tính trung bình cộng của 4 số bất kỳ:
```python
a = float(input("Nhập số thứ nhất: "))
b = float(input("Nhập số thứ hai: "))
c = float(input("Nhập số thứ ba: "))
d = float(input("Nhập số thứ tư: "))
tbc = (a + b + c + d) / 4
print("Trung bình cộng của 4 số là:", tbc)
```
Chương trình này sẽ yêu cầu người dùng nhập vào 4 số bất kỳ, sau đó tính trung bình cộng của chúng và in kết quả ra ngoài màn hình.
LM
1
TL
15 tháng 5 2022
Program Trungbinhcong;
Uses crt;
Var a,b,c,d,tb: integer;
Begin
Clrscr;
Write('Nhap so thu nhat:'); Readln(a);
Write('Nhap so thu hai:'); Readln(b);
Write('Nhap so thu ba:'); Readln(c);
Write('Nhap so thu tu:'); Readln(d);
tb:=(a+b+c+d)/4;
Writeln('Trung binh cong cua 4 so la:',tb:4:2);
Readln
End.
15 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000],t,dem,t1;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
cout<<endl;
t=0;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2==0)
{
t=t+a[i];
dem++;
}
cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0)<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0 || a[i]%3==0) t1+=a[i];
cout<<t1;
return 0;
}
Lời giải :
program hotrotinhoc ;
var a : array[1..10] of integer ;
i,tb : integer ;
begin
write('Nhap gia tri cua moi so');
for i:= 1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
tb:=0;
for i:= 1 to 10 do tb:=tb+a[i];
write(tb);
readln
end.
Thiếu kìa, thiếu tb:= tb/10;