Массивы, Одномерный массив. Найти мах из отрицательных и мин из положительных Опции

[Beseech]

Дан одномерный массив А из 20 элементов. Найти наибольший из отрицательных элементов массива; наименьший из положительных элементов массива(0 считать положительным числом). Вывести на экран исходный массив и найденные элементы. Если в массиве нет положительных(отрицательных) элементов, вывести на экран соответствующее сообщение.

Сообщение отредактировано: Beseech - 11.05.2007 15:17

[Адель]

var
  a:array[1..20] of integer;
  i,max,min:integer;
  f:boolean;
begin
randomize;
for i:=1 to 20 do begin
  a[i]:=random(20)-10;
  write(a[i],' ');
end;
writeln;
max:=0;
f:=true;
for i:=1 to 20 do begin
  if f and (a[i]<0) then
  begin
   max:=a[i];
   f:=false;
  end;
  if (a[i]<0)and(a[i]>max)then max:=a[i];
end;
f:=true;
min:=-1;
for i:=1 to 20 do begin
  if f and (a[i]>=0) then
  begin
   min:=a[i];
   f:=false;
  end;
  if (a[i]>=0)and(a[i]<min)then min:=a[i];
end;
if max=0 then writeln('max=none') else
writeln(max);
if min=-1 then writeln('min=none') else
writeln(min);

что то типо, но не 100% верно...

[Beseech]

Большое спс Адель,задача получилась