ТутРешу.Ру

Помогите: значение элементов одномерного массива заданных…

Задание:

Помогите: значение элементов одномерного массива заданных с клавиатуры изменить знак всех четных элементов на противоположный напечатать исходный иполучившийся массив

Решение:

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.




Знаете другой ответ?

Отправить свой ответ