Question

In programul principal avem declaratia: Type note[1..10] of real; Scrieti antetul procedurii numita Exercitiul1 care primeste drept parametru vectorul Z:note impreuna cu numarul sau de elemente n si returneaza media, minima si maxima notelor.

Answer 1

type note=array [1..10] of real;
var a:note;
x,y,z:real;
i,n:integer;

procedure Exercitiul1(z:note; n:integer; var media,min,max:real);
var i:integer; s:real;
begin
  s:=0;
 min:=z[1];
 max:=z[1];
  for i:=1 to n do
  begin
    s:=s+z[i];
    if (min>z[i]) then min:=z[i];
    if (max<z[i]) then max:=z[i];
  end;
  media:=s/n;
end;

begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  Exercitiul1(a,n,x,y,z);
  writeln('Media notelor e ',x);
  writeln('Cea mai mica nota e ',y);
  writeln('Cea mai mare nota e ',z);
end.