Задание:
Помогите: значение элементов одномерного массива заданных с клавиатуры изменить знак всех четных элементов на противоположный напечатать исходный иполучившийся массив
Решение:
var a, b: array[1… 1000] of longint; n, i: integer; begin readln (n); for i: =1 to n do read (a[i]); b: =a; for i: =1 to n do if b[i] mod 2=0 then b[i]: =-b[i]; for i: =1 to n do write (a[i], '); writeln; for i: =1 to n do write (b[i], '); end.
Знаете другой ответ?