👤
a fost răspuns

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.

Răspuns :

LOZANALEXZE
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari