Question

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.

Answer 1

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: