FAQ по одномерным массивам

Как объявить одномерный массив типа integer размером не более 1000 элементов (n<1000)?

var M:array[1..1000] of integer;

Как считать размер массива и все его элементы?

read(N);

for i:=1 to N do read(M[i]);

Как считать размер массива и заполнить его случайными числами?

read(N);

for i:=1 to N do M[i]:=random(-100,100);

Как вывести массив на экран в строчку через пробел?

for i:=1 to N do write(M[i],' ');

Как найти номер минимального элемента массива?

minN:=1;

for i:=1 to N do

begin

    if M[minN] < M[i] then

        minN := i;

end;

write(minN);