Виведіть значення найменшого з усіх додатних елементів в списку. Відомо, що в списку є хоча б один додатний елемент, а значення всіх елементів списку за модулем не
перевищують 1000. Вхідні дані: Вводиться список чисел. Всі числа списку знаходяться на
одному рядку.

Информативность сообщения

область взаимодействия между человеком, воспринимающим текст, и информационной насыщенностью текста, обусловленная избирательной воспринимающего человека, т.е. пределом различимости. Для различимости, т.е. понимания смысла высказывания, переводчику необходимо применить весь предыдущий опыт или знание обстановки общения именно к данному языковому содержанию. Информативность сообщения основывается на следующих требованиях: (1) синтаксических, согласно которым смысл должен быть логически вводим из наблюдаемого соотношения языковых единиц. Это означает, что переводчик должен установить принадлежность исходного текста к определенной знаковой системе по характеру отношений между знаками, составляющими текст; (2) семантических, согласно которым смысл, выводимый из данного соотношения языковых единиц, отражает то или иное состояние реальной действительности, включая вымысел. Это означает, что переводчик должен соотнести языковое содержание данного текста со смыслом (отражение реальной или вымышленной ситуации); (3) прагматических, согласно которым в смысл, придаваемый тексту, включается оценка как отраженной действительности, так и ее отражения. Это означает, что переводчик должен дать оценку, близкую к авторской или соответствующую непосредственным задачам перевода.

Сколько элементов массива?
Допустим, 10.

Var
A: array [1..10] of integer;
i, min, max, imin, imax: integer;
Begin
for i:=1 to 10 do
read(A[i]);
min:=A[1]; max:=A[1];
for i:=1 to 10 do
begin
if A[i] > max then
begin
max:=A[i];
imax:=i;
end;
if A[i] < min then
begin
min:=A[i];
imin:=i;
end;
end;
if imin<imax then
for i:=(imin+1) to (imax-1) do
A[i]:=sqr(A[i])
else
for i:=(imax+1) to (imin-1) do
A[i]:=sqr(A[i]);
writeln('Максимальное значение: ', max, ', минимальное: ', min);
for i:=1 to 10 do
write(A[i], ', ');
end.

Немного пояснений:
по условию, только элементы между минимумом и максимумом возводятся в квадрат, отсюда эти imax-1 и imin+1.

Пример действия:
1
2
4
999
765
624
0
83
64
63
Максимальное значение: 999, минимальное: 0
1, 2, 4, 999, 585225, 389376, 0, 83, 64, 63,