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
a[i]:=random(100);
end;
writeln;
fl:=0;
if a[i]>max then
fl:=fl+2;
writeln('В массиве есть положительные элементы',fl);
end.
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.