👤
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 :

LOZANALEXEZ
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 că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari