Задача с массивом на Pascal

[ICE1589]

Помогите плз решить задачу на Pascal.

Произвести обработку одномерного массива.
Элементы одномерного массива задать числами в диапазоне –20 . . . +50.

Необходимо:
- описать массив;
- ввести элементы массива из заданного диапазона;
- имя массива K(12), Вычислить минимальный элемент массива ( k1.k7, k2.k8, ... , k6.k12 );
- вывести результаты на экран.

[Alex11223]

А в чем проблема? Где ваш код? Все элементарно же делается, разве что я не понял что имеется в виду под "( k1.k7, k2.k8, ... , k6.k12 );".

[ICE1589]

k(12) - Имя массива
( k1.k7, k2.k8, ... , k6.k12 ) - как-то вычислить минимальный элемент массива по такому пинципу

[Alex11223]

Ну вы бы хотя бы первые 2 пункта сами написали)
Минимальный\максимальный элемент обычно вычисляется перебором с помощью цикла, так что не понятно причем тут ( k1.k7, k2.k8, ... , k6.k12 ), единственное, что приходит на ум - найти минимальные элементы в диапазоне от 1 до 7, 2 до 8 и т.д,, но тогда какая-то странная запись, судя по тому, что это копипаст задания.

[Mad_Cat]

const n=12;
 var i:Integer;
 min:real;
 buf:Real;
 k:array[1..n] of Integer;
 begin
 Randomize;
 Writeln('-=array=-');
 for I := 1 to n  do
   begin k[i]:=Random(71)-20;
   write(k[i],' ');
   end;
   Writeln;
   MIN:=MaxInt;
   for I := 1 to N div 2 do
   begin
    BUF:=k[I+(N div 2)];
    while Abs(buf)>1 do
    buf:=buf/10;
    if k[i]<0 then buf:=k[i]-buf else  buf:=k[i]+buf;
    if buf<min then min:=buf;
end;
   Writeln('min=',min:4:2);
   Readln;
end.