Найти минимальный элемент массива и его индекса (в паскале)

const

    n = 30;

var

    a: array [1..n] of integer;

    i, mini: integer;

begin

    for i : = 1 to n do

    begin

        a[i] : = random(30);

        write(a[i], ' ');

    end;

    writeln;

    mini : = 1;

    for i : = 1 to n do

        if a[i] < a[mini] then

            mini : = i;

    writeln('a[', mini, ']=', a[mini]);

end.

#include < iostream> using namespace std; int main() { int n,k,l; int gt=0,eg=0,lt=0;         cout< < "n = ";   cin> > n;       cout< < "k = ";   cin> > k;       cout< < "элементы последовательности через пробел: ";     for (int i=0; i< n; i++) {   cin> > l;   if (l> k) gt++;   if (l==k) eg++;   if (l< k) lt++; }       cout< < "меньше к: "< < lt< < endl;     cout< < "равных к: "< < eg< < endl;     cout< < "больших к: "< < gt< < endl;           system("pause");     return(0); }

1) выражение "семь пядей во лбу " :   возникло на основе того , что по высоте лба можно судить об умственных способностях человека . старинная мера длины ,пядь ,равнялась расстоянию между концами растянутых большого и указательного (меньшая пядь) или большого и среднего пальцев (большая пядь ); 2)так говорят о человеке крепкого , крупного телосложения - его ширина плеч равна косой сажени - около 2х мет.(расстояние от пальцев вытянутой вверх руки  до ступни противоположной ноги.); 3) "борода с вершок, а слов с мешок"   : борода с 44 см , а слов с мешок ( вершок от слова "верх") ; 4)быть проницательным , дальновидным , предусмотрительным .