Trần My

viết chương trình thực hiện các công việc sau:
a) Nhập chiều cao(đơn vị mét) của N học sinh(N được nhập từ bàn phím).
b) Thông báo ra màn hình chiều cao lớn nhất của N học sinh đó.
c) Thông báo ra màn hình số học sinh cao hơn 1.6m
Mng ơi giúp mình với ạ :((

Nguyễn Liên
18 tháng 4 2021 lúc 10:22

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.

 

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

uses crt;

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

max:real;

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('Nhap chieu cao 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('Chieu cao lon nhat la: ',max);

dem:=0;

for i:=1 to n do 

  if a[i]>1.6 then inc(dem);

writeln('So hoc sinh cao hon 1,6m la: ',dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Anh Nguyễn
Xem chi tiết
Hà Nguyễn Thái Bình
Xem chi tiết
Nguyễn Đức Hoàn
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
Nguyễn Như
Xem chi tiết
TNhi
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
Nguyễn Minh Trường
Xem chi tiết
Du Nguyễn
Xem chi tiết