Водномерном массиве найти наибольший положительный элемент и увеличить его в 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.