Pascal: Дан массив, состоящий из n целых элементов, вычислить минимальный по модулю элемент массива

[Руслан Белый]

Составить программу и блок-схему Pascal:

Дан массив, состоящий из n целых элементов, вычислить минимальный по модулю элемент массива.

[Вадим Мошев]

Руслан Белый, Обращайтесь ко мне на почту vadimFreelance (co6ака) yandex toчка ru
Сделаю за небольшое денежное вознаграждение. Подробнее у меня в подписи.

[newerow1989]

const n=10;
var i,s:integer;
    p:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   s:=Abs(p[1]);
   For i:=2 to n do
      If (s>Abs(p[i])) {and (p[i]<>0){} then
         s:=Abs(p[i]);
   Writeln(s);
   Readln;
end.