program brainly;
function max(): real;
type arr=array[0..10] of integer;
var
a:arr;
med: real;
i, s:integer;
begin
med:=0;
s:=0;
Writeln('Dati numerele:');
for i:=0 to 10 do begin
readln(a[i]);
if a[i]>0 then begin
med:=med+1;
s:=s+a[i];
end;
end;
med:=s/med;
max:=med;
end;
var result:real;
begin
result:=max();
Writeln('Media numerelor pozitive din tablou este:', result:2:2);
end.
Rezultat:
