Предыдущая публикация
Se considera declaratiile:
type Zi = (L, Ma, Mi, J, V, S, D) ;
Venit = array [Zi] of real;
var v : Venit;
Componentele variabilei v reprezinta venitul zilnic al unei interprinderi.Elaborati un program in care:
a)calculeaza venitul saptaminal al interprinderii.
Следующая публикация
Комментарии 2
s:real;
begin
writeln('dati venitul pentru fiecare zi'
for z:=L to D do
readln(v[z]);
for z:=L to D do
s:=s+v[z];
writeln('venitul saptaminal este', v[z] :10:2);
readln;
end.