В массивах x и у найти порядковые номера наименьших элементов - Turbo Pascal

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

Добрый день!!!! У меня очень туго с программированием, а мне задали на домашнее задание вот это((((( Вот собственно задача: в массивах X=(x1, x2, ...., x50) и Y=(y1, y2, ...., y50) найти порядковые номера наименьших элементов. P.S. Заранее спасибо

Решение задачи: «В массивах x и у найти порядковые номера наименьших элементов»

Листинг программы

uses crt;
const n=50;{размер массивов}
type mas=array[1..n] of integer; {тип массивов}
{процедура создания и вывода массива}
procedure massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=-10+random(30);
  write(a[i]:4);
 end;
writeln;
end;
{функция нахождения номера минимального элемента}
function ind_min(a:mas):byte;
var i,j:byte;
begin
j:=1;
for i:=2 to n do
if a[i]<a[j] then j:=i;
ind_min:=j
end;
 
var x,y:mas;
begin
clrscr;
randomize;
massiv(x,'X');
writeln('Номер минимального=',ind_min(x));
massiv(y,'Y');
writeln('Номер минимального=',ind_min(y));
readln
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он содержит два массива x и y, которые заполняются случайными числами от -10 до 30. Функция ind_min находит порядковый номер наименьшего элемента в массиве. Для этого она итерируется по всем элементам массива, сравнивая текущий элемент с предыдущим. Если текущий элемент меньше предыдущего, то обновляется значение переменной j. В конце функция возвращает значение j. Далее, в основной части кода создаются два массива x и y, и вызываются функции ind_min для каждого из них. Затем выводится номер наименьшего элемента в каждом массиве. Код начинается с объявления необходимых констант и типов данных. Затем определяется процедура massiv, которая создает и выводит массив, заполняя его случайными числами. Внутри процедуры используется цикл for, который итерируется от 1 до n и выводит каждый элемент массива. Далее определена функция ind_min, которая находит номер наименьшего элемента в массиве. Она использует цикл for, чтобы сравнить все элементы массива и обновить значение переменной j, если текущий элемент меньше предыдущего. В конце функция возвращает значение j. Затем объявлены два массива x и y, и вызываются функции ind_min для каждого из них. Выводится номер наименьшего элемента в каждом массиве. Код заканчивается вызовом функции readln для чтения пользовательского ввода и завершением работы программы.