Viết chương trình nhập vào chiều cao của 5 người xuất ra người cao nhất và người thấp nhất
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
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.
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')
4 tháng 4 2022
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i],b[i],c[i]);
for i:=1 to 10 do
tb[i]:=(a[i]+b[i]+c[i])/3;
ln:=0;
nn:=10;
for i:=1 to 10 do
begin
if ln<tb[i] then ln:=tb[i];
if nn>tb[i] then nn:=tb[i];
end;
writeln(ln:4:2);
writeln(nn:4:2);
for i:=1 to 10 do
begin
if tb[i]>=5 then writeln('Ban thu ',i,' Dat')
else writeln('Ban thu ',i,'Chua dat');
end;
readln;
end.
ML
22 tháng 4 2020
Program hotrotinhoc_hoc24;
var a: array[1..40] of real;
i,n: integer;
max,min: real;
begin
for i:=1 to 40 do
begin
write('Nhap ban thu ',i,': '); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 to 40 do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln('Chieu cao cua ban thap nhat la : ',min:1:2);
write('Chieu cao cua ban cao nhat la : ',max:1:2);
readln
end.
1 tháng 4 2021
1:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',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.
D
1 tháng 4 2021
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,max:integer;
begin
clrscr;
write('nhap so n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: ');
readln(a[i]);
end;
b,
program aicaohon;
uses crt;
var Nhi, Tram,An:real;
begin
clrscr;
write('nhap chieu cao cua Nhi=');readln(Nhi);
write('nhap chieu cao cua Tram='); readln(Tram);
if Nhi>Tram then writeln('Ban Nhi cao hon');
if Tram>Nhi then writeln('Ban Tram cao hon')
if An>Tram>Nhi then writeln( 'Ban An cao nhat')
else writeln('An cao nhat');
readln
end.
max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln('Max: ',max);
readln;
end.
VT
1
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)
20 tháng 5 2020
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ệ)
18 tháng 5 2021
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}
function cv(x,y:integer):integer;
begin
cv:=x+y;
end;
{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}
function dt(x,y:integer):integer;
begin
dt:=x*y;
end;
{-------------------------chuong-trinh-chinh-------------------------}
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln('Chu vi la: ',cv(a,b));
writeln('Dien tich la: ',dt(a,b));
readln;
end.
19 tháng 12 2021
2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a%b<<endl;
cout<<a/b;
return 0;
}
23 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Program asd;
Uses crt;
Var a:array[1..6] of Interger;
Begin
c:=0;
t:=0;
For i:=1 to 5 do
Begin
Write("Nhap chieu cao nguoi thu nhat (m) : ");
Readln(a[i]);
if a[i]>c then c:=a[i];
If a[i]<t then t:=a[i];
End;
Writeln("Chieu cao nguoi cao nhat la: ",c," m");
Writeln("Chieu cao nguoi thap nhat la: ",t," m");
Readln;
End.
Chúc bạn thi tốt