Question

Elaborati un program Pascal care va înlocui numerele negative cu numărul 0 într-un tabel unidimensional cu n coloane

Answer 1

var a:array of integer;
n:integer;
i:byte;
begin
Writeln('Coloane: ');
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
for i:=0 to n-1 do begin
if (a[i]<0) then a[i]:=0;
write(a[i],' ');
end;
end.