Să se scrie un program pascal, care citește un tablou din 11 numere întregi și afișează media numerelor pozitive , cu ajutorul unei funcții

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: