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

Question

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

Answer 1

57

sutrium

06 сентября 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: