hãy viết chương trình và mô tả thuật toán tìm chiều cao cao nhất của các bạn trong lớp
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.
19 tháng 12 2021
c:
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<a*b;
return 0;
}
27 tháng 11 2021
#include<iostream>
using namespace std;
int main() {
int a, b;
cout << "chiều dài : "; cin >> a;
cout << "chiều rộng : "; cin >> b;
int h = a + b;
cout << "Chu vi hình chữ nhật là : " << h * 2;
cout << "Diện tích hình chữ nhật là : " << a * b;
return 0;
}
Mình viết chương trình như thế này thì chương trình sẽ chạy như sau :
Mt sẽ hiện ra là: Chiều dài : <nhập chiều dài>
Mt sẽ hiện ra là: Chiều rộng : <nhập chiều rộng>
sau khi nhập đủ giá trị cho hai biến a và b tạo biến h lưu giá trị a + b
xuất ra màn hình: Chu vi là : <giá trị của h * 2>
xuất ra màn hình: Diện tích là : <giá trị của a * b>
KV
13 tháng 5 2023
Bài 1
Var a:array:[1..1000] of real;
i,n:integer;
max,min:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap chieu cao ban 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;
writeln('Ban cao nhat la ',max:10:2);
write('Ban thap nhat la ',min:10:2);
Readln
End.
23 tháng 5 2022
uses crt;
var a:array[1..100]of integer;
i,n,nn,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
s:=1;
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
s:=s*a[i];
end;
writeln(nn);
writeln(s);
readln;
end.
B1 gán max=a[1];
B2 xét nếu max<a[i] thì gán max=a[i];
B3 inkeets quả ra màn hình