Дан массив целых чисел a : array[1.20] of integer – напишите функцию возвращающую номер минимального элемента - Pascal ABC

Формулировка задачи:

Есть задача "Дан массив целых чисел a : array[1..20] of integer – напишите функцию возвращающую номер минимального элемента" С функциями у меня проблема дикая, по самоучителям и другой инфе в интернете накатал программу( ниже она есть), но не пойму как сделать что бы вывод минимального номера был не в функции
var
a: array [1..20] of integer;
N: integer;   
 min: integer;
  minind: integer;
function minel(min,minind,N: integer): integer;
begin
  min := a[1];
  minind := 1;
  for var i:=2 to N do
    if a[i]<min then 
    begin
      min := a[i];
      minind := i;
    end;
    writeln('Минимальный номер: ',minind);
end;
 
begin
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for var i:=1 to N do
read(a[i]);
minel(min,minind,N);
 
end.

Код к задаче: «Дан массив целых чисел a : array[1.20] of integer – напишите функцию возвращающую номер минимального элемента - Pascal ABC»

textual
program ex;
uses crt;
const N=20;
type vector=array[1..n]of integer;
var a:vector;
    i,m:integer;
 
function minimum(a:vector; m:integer):integer;
var i,min,nomer:integer;
begin
min:=a[1];
nomer:=1;
for i:=1 to m do
if (a[i]<min)then
   begin
   min:=a[i];
   nomer:=i;
   end;
minimum:=nomer;
end;
 
begin
write('введите количество элементов массива: ');readln(m);
for i:=1 to m do
begin write('введите элемент: ');readln(a[i]);end;
write('массив: ');
for i:=1 to m do
write(a[i],' ');
writeln();
write('номер минимального элемента: ',minimum(a,m));
end.

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ