Задание на Паскале:
Поиск минимальных элементов массива

Вот что набросал:

a[1;10] массив array
элемент массива int;
min - минимальн. элементов
min:= a[1];
for i:= 2 to 10 : do
begin
If min>a[i] then
min:= a[i]
end;
writeln (min)

** начало кода
** i от 1 до 10 выполн.
***начало - если
*** если min > a [i] to
*** min:=a[i]
***конец если
** конец кода
* вывод

Но это наверное не правильно само задание выше