Дано n чисел найдите минимальное из них. СрочноООО пожалуйста!!!

Question

Дано n чисел найдите минимальное из них.
СрочноООО пожалуйста!!!

Answer 1

Var n,min,i:integer;    chisl :array[1..1000]of integer;begin    randomize;    min:=1000;    Writeln('vvedity n='); readln(n);    for i:=1 to n do begin    chisl[i]:=random(1000); writeln(chisl[i]);    end;    for i:=1 to n do begin    if chisl[i]<min then min:=chisl[i];    end;    Writeln('Minimum=',min);end.