Паскаль тілінде есепті шығаруға көмек керек еді

Question

осы бірншіні жасауға тырыстым ен кіші элемент

program homework;
var a: array [0..20] of integer;
n,i,nomer,min:integer;
begin
writeln('vvedite n');
readln(n);
min:=a[1]; nomer:=1;
for i:=2 to n do
if a[i]<min then begin
min:=a[i]; nomer:=i;
end;
writeln('min=', min);
writeln('nomer №=', nomer);
end.

Answer 1

Біріншіден: var a: array [1..20] of integer;

Кейін массив инициализацияланбаған. Былай кездейсоқ сандармен толтырып қойсаң болады, бас жағында:
for i:=1 to 20 do
begin
a[i]:=random(19);
write(a[i],'     ');
end;