Найти среди 40 чисел минимальный элемент и его порядковый номер? 10 человек сделали…

uses crt; var a: array[1… 40] of integer; i,min,n: integer; beginwriteln ('Исходный массив: '); for i: =1 to 40 do begin a[i]: =random (99-1+1)+1; write (a[i]: 3); end; writeln; min: =100; for i: =1 to 40 do begin if a[i]