Question

Sa se scrie un program ce calculeaza valoarea medie a temperaturii pe luna martie( in Pasca)l

Answer 1

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.