Массивы

[Ulq]

Всем привет! Нужна помощь... Программа, которая определяет минимальное число в массиве, цифры задаем с клавиатуры. Вот код:

uses crt;
const k=3;
var
a: array[1..k] of integer;
i,d,c,l:integer;

BEGIN
clrscr;

c:=maxint;
for i:=1 to k do
begin
Write('--->'); readln(a[i]);
for l:=1 to  1 do
begin
if a[i]<c then c:=a[i];
end;
end;

 writeln(c);
readln;
END.

Тут все получается, но объясните пжл.,почему когда я c:=0, то у меня не работает так, как нужно.

P.S. Если можно, напишите плиз альтернативный вариант, ток без "Function" и "Procedure" их я еще не учил)

[challengerr]

минимум лучше привоить первому элементу массива с сравнивать уже с ним

с 0 не работает так как не существует положительных чисел меньших 0

uses crt;
const k=3;
var
a: array[1..k] of integer;
i,d,c:integer;
BEGIN
Write('--->');readln(a[1]);
c:=a[1];
if k>1 then 
begin
 for i:=2 to k do
 begin
  Write('--->'); readln(a[i]);
  if a[i]<c then c:=a[i];
 end;
end;
writeln(c);
readln;
END.

[Ulq]

Слушайте, а зачем писать "if k>1" это для чего?
Спасибо за объяснение и код)

[Serge_Bliznykov]

Слушайте, а зачем писать "if k>1" это для чего?

позволю себе ответь за challengerr.

в данном случае, так как после идёт цикл for i:=2 to k do,
то эту проверку можно смело отбросить - она избыточна.

А вообще, константа, в которой задаётся количество элементов в массиве k может быть установлена программистом равной 1 (единице), тогда цикл по вводу 2-го и последующих элементов массива (при k=1) не имеет смысла...