Question

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 ạ :((

Answer 1

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.

 

Answer 2

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.