Răspuns :
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ă....
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!