Question

Să se elaboreze un program care va înlocui numele pozitive dintr-un vector citit de la tastatura prin 1 iar cele negative prin -1

Answer 1

Răspuns:

program Pastele2019;

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

   n,i: integer;

begin

 write('Dati nr.  de elemente ale vectorului, n= '); read(n);

 writeln('introdu ',n,' numere: ');

 for i:=1 to n do

   read(v[i]);

 { urmeaza inlocuirea elementelor... }

 for i:=1 to n do

   begin

     if v[i]>0 then v[i]:=1

     else begin

            if v[i]<0 then v[i]:=-1;

          end;

   end;

   

  writeln('urmeaza afisarea vectorului modificat: ');

  for i:=1 to n do

    write(v[i],'  ');

  writeln;

end.

Explicație:

zerourile nu se modifică....