Question

se citeste de la tastatură componentele unui tablou array cu 15 componente întregi. De modificat componentele tabloului în felul următor cele negative cu 100 cele pozitive cu -100.

Answer 1

program Schimbare;
var tablou:array[1..20] of integer;
var i,n:integer;
begin
writeln('Introduceti nr de elemente:');
readln(n);
writeln('Introduceti elementele:');
for i:=1 to n do
begin
read(tablou[i]);
if(tablou[i]<0) then
tablou[i]:=100
else
tablou[i]:=-100;
end;
writeln('Elementele acum sunt:');
for i:=1 to n do
write(tablou[i]);
write(' ');
end.

Answer 2

var a:array[1..15] of integer;
i:byte;

begin

for i:=1 to 15 do begin
read(a[i]);
if a[i]<0 then a[i]:=100 
else a[i]:=-100;
end;

writeln;

for i:=1 to 15 do write(a[i],' ');
end.