Дан массив B15 поменять элементы на противоположные по знаку и вывести массив на экран

Question

Информатика

Сергей

10 июня, 09:52

Дан массив B15 поменять элементы на противоположные по знаку и вывести массив на экран

+2

Ответы (1)

Знаете ответ на вопрос?

Арефий · Answer 1

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.