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.

23 tháng 6 2018

program chieucao;

uses crt;

var : do,n,i,max,min:integer;

a:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do begin

write('Nhap chieu cao cua hoc sinh thu ',i,':');readln(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;

do:=max-min;

writeln('Do chenh lech chieu cao cua ban cao nhat va thap nhat la:',do);

readln

end.

19 tháng 5 2023

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.

#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;

}

17 tháng 11 2021

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.

18 tháng 11 2021

#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;

}

18 tháng 11 2021

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.

18 tháng 11 2021

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.

3 tháng 3 2023

a = [ ]

n = int(input('Nhập số lượng học sinh: '))

# Nhập thông tin học sinh

for i in range(n):

     name = input('Tên học sinh: ')

     height = float(input('Chiều cao: '))

     a.append([name, height])

# Tìm học sinh có chiều cao lớn nhất và bé nhất

max_height = 0

min_height = float('inf')

max_name = ''

min_name = ''

for i in range(n):

     if a[i][1] > max_height:

          max_height = a[i][1]

          max_name = a[i][0]

     if a[i][1] < min_height:

          min_height = a[i][1]

          min_name = a[i][0]

# In ra bạn có chiều cao lớn nhất, bé nhất

print('Học sinh có chiều cao lớn nhất là:', max_name, 'với chiều cao', max_height, 'm')

print('Học sinh có chiều cao bé nhất là:', min_name, 'với chiều cao', min_height, 'm')

12 tháng 4 2022

tham khảo:

undefined

#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;

}

20 tháng 5 2020

vì gắn trước max, min là giá trị thứ 1 của dãy nên là có thể thay giá trị đầu của vòng lặp cuối thành 2 để rút gọn bớt quá trình lặp (nhưng mà để vậy cũng chẳng sao, vì máy tính vèo cái là xong :v)

Cảm ơn bạn vì đã giải nghĩa những câu lệnh đó giúp các bạn khác(Trừ mình và cô Minh Lệ)

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.