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

2

Ответы и объяснения

2013-02-18T12:56:04+00:00

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.

2013-02-18T13:18:17+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a: array [1..100] of integer;
n,i:integer;
Begin
    read(n);
    for i:= 1 to n do
        read(a[i]);

    for i:= 1 to n do
        write(a[i],' ');

    for i:= 1 to n do begin
        if (a[i] mod 2 = 0) then
            a[i]:=-a[i];
        write(a[i],' ');    
    end
End.