Question

Elaborati o procedura in Turbo Pascal care sa calculeze media elementelor negative impare,elementele Maximum si Minimum(totul printr-un program)

Answer 1

Program Brainly;
VAR media:real; maxim,minim,i,n:integer; a:array[1..100] of integer;
procedure Max(a:array[1..100] of integer);
VAR i:integer;
Begin
maxim:=a[1];
for i:=2 to n do
Begin
if a[i] > maxim then maxim:=a[i];
end;
Writeln('Maxim: ',maxim);
end;
procedure Min(a:array[1..100] of integer);
VAR i:integer;
Begin
minim:=a[1];
for i:=2 to n do
Begin
if a[i] < min then min:=a[i];
end;
Writeln('Minim: ',minim);
end;
procedure Med(a:array[1..100] of integer);
VAR i,k,s:integer;
Begin
for i:=1 to n do
Begin
if (a[i] < 0) and (a[i] mod 2 <> 0) then
Begin
k:=k+1;
s:=s+a[i];
end;
end;
media:=s/k;
Writeln('Media ',media);
end;
Begin
Readln(n);
for i:=1 to n do
Begin
Readln(a[i]);
end;
Med(a);
Max(a);
Min(a);
Readln;
END.