Viết chương trình nhập số nguyên từ bàn phím cho đến khi nhập số 0 thì không cho nhập nữa. Xuất ra màn hình giá trị lớn nhất, giá trị nhỏ nhất trong các số nguyên đã nhập trước đó không tính số 0.

Đáp án+Giải thích các bước giải:

 `Code:`

var
  n, max, min: integer;
begin
  writeln('Nhap so nguyen:');
  readln(n);
  max := n;
  min := n;
  while n <> 0 do
  begin
    if n > max then max := n;
    if n < min then min := n;
    writeln('Nhap so nguyen:');
    readln(n);
  end;
  writeln('Gia tri lon nhat la: ', max);
  writeln('Gia tri nho nhat la: ', min);
end.

uses crt;
var n,max,min:integer;
begin
clrscr;
readln(n);
min:=n;
max:=n; 
repeat
 if max<n then max:=n;
 if min>n then min:=n;
 readln(n);
until n=0;
write(max,' ',min);
readln
end.