Дано трехзначное число. вывести порядковый номер его минимальной цифры. паскаль

var

  n, min : integer;

  a : array [1..3] of byte;

begin

  read (n);

  a[1] : = n div 100;

  a[2] : = n div 10 mod 10;

  a[3] : = n mod 10;

  min : = 1;

  if a[2] < a[min] then min : = 2;

  if a[3] < a[min] then min : = 3;

  writeln (min);

end.

#include < iostream> using namespace std; int main() { int n;   cin > > n;   int *arr = new int[n]; for (int i = 0; i < n; i++) {   cin > > arr[i]; } int max = -1; int min = -1; for (int i = 1; i < n; i++) {   if (arr[i] > 0 & & arr[i] % 2 == 0) {   if (min == -1) {     min = arr[i];   }   if (max < arr[i]) {     max = arr[i];   }     if (min > arr[i]) {     min = arr[i];   }   }   }   cout < < min < < " " < < max; system("pause"); return 0; }

Begin   var n: =readinteger('n = ');   var m: =readinteger('m = ');   writeln('исходная матрица: ');   var a: =matrrandom(n,m,-20,20);     a.println(4);   for var i: =0 to a.rowcount-1 do     for var j: =0 to a.colcount-1 do       if a[i,j]> 0 then a[i,j]: =1 else a[i,j]: =0;   writeln('измененная матрица: ');   a.println(4) end. пример: n =  4 m =  5 исходная матрица:     7  -8  -7  -5  -7     2    4  -3  -2 -13   14    5 -12    9  20   12  11  18  -3    7 измененная матрица:     1    0    0    0    0     1    1    0    0    0     1    1    0    1    1     1    1    1    0    1