Минимум из введенных на Pascal

Минимум из введенных...

Код на Pascal:

const n = 10;
 
var  
  min: integer;
  x: integer;
  i: integer;
 
begin
  writeln('Введите ',n,' значений: ');
  read(x);  
  min := x;  
  for i := 2 to n do
  begin
    read(x);
    if x<min then
      min := x;
  end;
  writeln('Минимальное значение = ',min);
end.


Код на PascalABC.NET:

const n = 10;
 
var min: integer;
 
begin
  writelnFormat('Введите {0} значений: ',n);
  min := integer.MaxValue;  
  for var i := 1 to n do
  begin
    var x: integer;
    read(x);
    if x<min then
      min := x;
  end;
  writeln('Минимальное значение = ',min);
end.



Просмотров: 2139
10.02.2015, 10:20 -

Категория: Статьи » Программирование » Pascal