дан массив B15 поменять элементы на противоположные по знаку и вывести массив на экран
Answers & Comments
saypl
Var b:array[1..15] of real; i:integer; begin for i:=1 to 15 do read(b[i]); writeln; for i:=1 to 15 do begin b[i]:=-1*b[i]; write (b[i],' '); end; end.
Answers & Comments
i:integer;
begin
for i:=1 to 15 do read(b[i]);
writeln;
for i:=1 to 15 do begin b[i]:=-1*b[i]; write (b[i],' '); end;
end.