Дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива (числа вводятся с клавиатуры)

Var   a: array [0..14] of integer;   min, max, i: integer; begin   for i : = 0 to 14 do     readln(a[i]);   for i : = 0 to 14 do   begin     if (a[min] > a[i]) then       min : = i;     if (a[max] < a[i]) then       max : = i;   end;   writeln('min: a[', min, ']', #13, 'max: a[', max, ']'); end.

// pascalabc.net 3.3, сборка 1541 от 29.09.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходная матрица ***');   var a: =matrrandom(6,7,-99,99);   a.println(4); writeln(4*a.colcount*'-');   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if (a[i,j]> 0) and (i+j).iseven then a[i,j]: =0;   writeln('*** результирующая матрица ***'); a.println(4) end. пример -74  73  61  97  96  52 -23   77 -99 -79  48  67  -3 -23   63 -61 -26  28 -99  89 -13   -85  43 -14  85  -8  91 -70   -68  90  71 -23  94  67 -81   -69 -52  44  47  96 -48  89 *** результирующая матрица ***   -74  73    0  97    0  52 -23   77 -99 -79    0  67  -3 -23     0 -61 -26  28 -99  89 -13   -85    0 -14    0  -8    0 -70   -68  90    0 -23    0  67 -81   -69 -52  44    0  96 -48  89

// pascalabc.net 3.3, сборка 1542 от 05.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',n,'] ***');   var c: =matrrandom(n,n,-99,99);   c.println(4); writeln(4*c.colcount*'-');   var t: =new real[2*n];   var j: =0;   for var i: =0 to n-1 do begin       t[j]: =c[i,i];       t[j+n]: =c[i,n-i-1];       j+=1       end;   t.println end. пример количество строк/столбцов в матрице: 7 *** исходная матрица [7,7] ***   -61  73  25  31  91 -61 -13   -9 -51 -98  57 -46 -16 -39   -14  68 -77  16  74  17  86     9 -29  -2 -17 -30  23  84   71  15  22 -58 -46  42 -96   -29 -38  30 -51  70 -67 -15     8 -96 -22  85  41 -71 -57 -61 -51 -77 -17 -46 -67 -57 -13 -16 74 -17 22 -38 8