Răspuns :
program p1;
uses crt;
type saptamina = (prima, doua, treia, patra);
grade = -40..40;
media = array [saptamina, grade] of real;
var m : media;
s : saptamina;
g : grade;
begin
clrscr;
writeln('introduceti media a primei saptamini din luna Martie : ');
readln(m[prima,g]);
writeln('introduceti media a doua saptaminii din luna Martie : ');
readln(m[doua,g]);
writeln('introduceti media a treia saptamini din luna Martie : ');
readln(m[treia,g]);
writeln('introduceti media a patra saptamini din luna Martie : ');
readln(m[patra,g]);
Writeln('Media lunii Martie este',(m[prima,g]+m[doua,g]+m[treia,g]+m[patra,g])/4:3:2);
readkey;
end.
uses crt;
type saptamina = (prima, doua, treia, patra);
grade = -40..40;
media = array [saptamina, grade] of real;
var m : media;
s : saptamina;
g : grade;
begin
clrscr;
writeln('introduceti media a primei saptamini din luna Martie : ');
readln(m[prima,g]);
writeln('introduceti media a doua saptaminii din luna Martie : ');
readln(m[doua,g]);
writeln('introduceti media a treia saptamini din luna Martie : ');
readln(m[treia,g]);
writeln('introduceti media a patra saptamini din luna Martie : ');
readln(m[patra,g]);
Writeln('Media lunii Martie este',(m[prima,g]+m[doua,g]+m[treia,g]+m[patra,g])/4:3:2);
readkey;
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!