Минимум из введенных на Pascal
Минимум из введенных...
Код на Pascal:
Код на PascalABC.NET:
Код на 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.
10.02.2015, 10:20 -
Категория: Статьи » Программирование » Pascal