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.

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.

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.

18 tháng 4 2021

a)

var a:array[1..100] of longint;

      n,i,max,d:longint;

begin

read(n);

for i:=1 to n do

write('nhap chieu cao, don vi cm');read(a[i]);

b) max:=a[1];

for i:=2 to n do

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

writeln('ban cao nhat cao',max);

c) for i:=1 to n do

if a[i]>160 then d:=d+1;

write('so ban cao hon 160 cm la: ',d);

end.

 

18 tháng 4 2021

câu b,c ko cần khai báo lại đúng ko ạ?

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

}

10 tháng 5 2023

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

i,max:integer;

Begin

For i:=1 to 50 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

Writeln;

max:=a[1];

For i:=2 to 50 do

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

Write('Diem trung binh lon nhat la ',max:10:2);

Readln

End.

10 tháng 5 2023

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

i:integer;

max:real;

Begin

For i:=1 to 50 do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to 50 do 

Write(a[i]:10:2);

writeln;

max:=a[1];

For i:=2 to 50 do

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

write('Diem lon nhat la ',max:10:2);

Readln

End.

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;

}