Массивы

[ilnar51]

задан одномерный массив из N чисел.Проверить,есть ли в массиве положительные элементы и если есть то найти среди них максимальное

[Mad_Cat]

сделаю за 1$ контакты в подписи

[Spyman]

Простая задача.
задаешь одномерный массив (a[1..N]) и bool переменную (F:= false) и (max) для хранения максимума. А после

for i:= 1 to N do begin 
   if (a[i]>0) then begin F:=true; break; end; 
end;
max:=0;
if (F) then begin
  for i:= 1 to N do begin 
     if (a[i] > max) then max:=a[i];
  end;
end;

ну и дальше вывод максимума. Вот собственно и все.