В одномерном массиве найти наибольший положительный элемент и увеличить его в 2 раза.

type

n = array[1 ... 10] of integer;

var

a:n;

i : integer;

fl : integer;

max : integer;

begin

max:=A[1];

randomize;

for i:=1 to 10 do

begin

a[i]:=random (100) ;

end;

writeln;

fl:=0;

for i:=1 to 10 do

if a[i]>max then

begin

fl:=fl+2;

writeln ('В массиве есть положительные элементы', fl) ;

end;

end.