Những câu hỏi liên quan
Nguyễn Minh Trường
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:33

#include <bits/stdc++.h>

using namespace std;

double a[1000],t;

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<fixed<<setprecision(2)<<t/(n*1.0);

return 0;

}

Bình luận (0)
Nguyen Tan Dat
Xem chi tiết
Kiều Vũ Linh
19 tháng 5 2023 lúc 7:45

Var a:array:[1..1000] of real;

i,n:integer;

max,min,s,tb:real;

Begin

Write('Nhap so luong hoc sinh: ');readln(n);

For i:=1 to n do

Begin

Write('Nhap chieu cao hs thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

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;

writeln('Chieu cao lon nhat la ',max:10:1);

Writeln('Chieu cao nho nhat la ',min:10:1);

Write('Chieu cao trung binh la ',tb:10:1);

Readln

End.

Bình luận (0)
Kim Chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 3 2021 lúc 19:16

uses crt;

var a:array[1..60[of real;

i,n:integer;

begin

clrscr;

write('Nhap so ban:'); readln(n);

for i:=1 to n do 

  begin

write('Chieu cao cua ban thu ',i,' la: '); readln(a[i]);

end;

for i:=1 to n do 

  writeln('Ban thu ',i,' cao ',a[i],'m');

readln;

end.

Bình luận (0)
43-8.1 Lam trường
Xem chi tiết
Đông Hải
17 tháng 11 2021 lúc 13:00

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

if max<cao[i] then max:=cao[i];

if min>cao[i] then min:=cao[i];

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

Bình luận (0)
lê thị bích ngọc
18 tháng 11 2021 lúc 11:41

#include<iostream>

using namespace std;

int main() {

    int a, b, c, d, e;

    cin >> a >> b >> c >> d >> e;

    int g = a + b + c + d + e;

    cout << g / 5;

    return 0;

}

Bình luận (1)
Cai Gia Tường Vy 45_8.2
Xem chi tiết
Thuy Bui
18 tháng 11 2021 lúc 19:24

tham khảo

 

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

if max<cao[i] then max:=cao[i];

if min>cao[i] then min:=cao[i];

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

Bình luận (0)
Đông Hải
18 tháng 11 2021 lúc 19:29

Tham khảo

uses crt;

var cao:array[1..60]of real;

i,n:integer;

max,min:real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);

end;

max:=cao[1];

min:=cao[1];

for i:=1 to n do

begin

if max<cao[i] then max:=cao[i];

if min>cao[i] then min:=cao[i];

end;

writeln('Chieu cao thap nhat la: ',min:4:2);

writeln('Chieu cao cao nhat la: ',max:4:2);

readln;

end.

Bình luận (0)
SINH HOANG
Xem chi tiết
Ngô Bá Hùng
18 tháng 4 2023 lúc 14:18

program TimDiemCaoNhat;

var
  diem: array[1..30] of integer;
  i, diemCaoNhat, soThuTu: integer;

begin
  for i := 1 to 30 do
  begin
    write('Nhap diem cua ban thu ', i, ': ');
    readln(diem[i]);
  end;
  diemCaoNhat := diem[1];
  soThuTu := 1;
  for i := 2 to 30 do
  begin
    if diem[i] > diemCaoNhat then
    begin
      diemCaoNhat := diem[i];
      soThuTu := i;
    end;
  end;
  writeln('Diem cao nhat la: ', diemCaoNhat);
  writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
  
  readln;
end.

Bình luận (0)
Trần Triệu Vy
Xem chi tiết
Ngô Vân Minh Châu
Xem chi tiết
Tô Mì
16 tháng 12 2021 lúc 12:32

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

if Long > Trang then writeln('Long cao hon Trang')

else writeln('Trang cao hon Long);

end.

#AeMZn

 

Bình luận (0)
Phú Nguyễn
16 tháng 12 2021 lúc 13:40

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

Bình luận (0)
Mối tình chong gai
Xem chi tiết
Đỗ Tuệ Lâm
12 tháng 4 2022 lúc 11:24

tham khảo:

undefined

Bình luận (0)
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:33

#include <bits/stdc++.h>

using namespace std;

double a[100];

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]>=1.5) cout<<fixed<<setprecision(2)<<a[i]<<" ";

return 0;

}

Bình luận (0)
Trúc Quỳnh
Xem chi tiết
Trungnghia
9 tháng 4 2021 lúc 21:33

Bình luận (0)
Trungnghia
9 tháng 4 2021 lúc 21:37

undefined

Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

Bình luận (1)
Nguyễn Lê Phước Thịnh
9 tháng 4 2021 lúc 21:41

uses crt;

var a:array[1..50]of real;

max:real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('Nhap diem cua ban thu ',i,'='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (1)