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

Question

Информатика

Матрёна

18 апреля, 05:49

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

+5

Ответы (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.