Паскаль, Одномерный массив, найти наименьшее число

я бы нарисовал что-то если бы понял что это за а1 2а2....а в целом думаю что задача делается так же как и номер 2

Ответ дам в Pascal ABC, разберёшься что к чему.
1. Задаём значения массива (Пусть имя массива - A)
2. Узнайм список элементов массива
L:=Length(A);
3. Находим наименьшее значение с помощью цикла: задаём минимальное значение первому элементу и сравниваем его с другими; если есть меньше, заменяем содержимое переменной min на другой элемент массива
min:=A[1];
for k:=2 to L do begin
if A[k]=min then
min:=A[k];
end;
writeln(min);

var
A: array [1..9] of Integer;
i: Integer;
min: Integer;

begin
min := A[1];
for i:=2 to L do
begin
if A[k] = min then
min := A[k];
end;
Writeln(min);
end.

var
A: array [1..9] of integer;
i: integer;
min: integer;
mini: integer;

begin
for i:=1 to 9 do
readln(A)

min := A[1];
for i:=2 to 9 do
begin
if A < min then
begin
mini:=i;
min := A;
end;
end;
Writeln('минимальное число');
Writeln(min);
Writeln('порядковый номер');
Writeln(mini);
end.

Хоть это и не красиво, попробуй с If then else if.