LÀM CỦA CÁC CÂU LỆNH VIỆC VỚI DÃY ĐƯỢC CÁC CÂU THÀNH PHẦN CÓ TRONG KH...

Câu 4

Write (‘nhap so phan tu cua day:’); readln(n);

1

Writeln (‘hay nhap’,n,’ phan tu cua day:’);

For i:=1 to n do readln(a[i]);

Ptmax:=a[i]; ptmin:=a[i];

For i:=2 to n do

Begin

If a[i] > ptmax then ptmax:=a[i];

If a[i] < ptmin then ptmin:=a[i];

End;

Writeln (‘phan tu max cua day la: ‘,ptmax:0:2);

Writeln(‘phan tu min cua day la: ‘,ptmin:0:2);

Readln

End.