Question

Scrieți un program în Pascal la problema 104

Answer 1

Răspuns:

Explicație:

program InserareMedii;

var X:array[1..100] of real;

   Y:array[1..200] of real;

   n, i, m:integer;

begin

 write('n='); read(n);

 writeln('Introdu ',n,' elemente a tabloului X:');

 read(X[1]); Y[1]:=X[1]; m:=1;

 for i:=2 to n do

   begin

     read(X[i]);

     m:=m+1; Y[m]:=(X[i-1]+X[i])/2;

     m:=m+1; Y[m]:=X[i];

   end;

 writeln('Tabloul Y cu mediile inserate:');

 for i:=1 to m do

   write(Y[i], '  ');

 writeln;

end.