Инвертировать каждое четное значение одномерной матрицы.
Во первых, что это такое?( имею ввиду чего от меня хотят))) :D
Буду очень благодарна за помощь, особенно если кто нить подскажет как еще и написать такую програмку)
Полная версия: Инвертировать каждое четное значение
Инвертировать -- значит поменять на противоположное, в данном случае сменить знак .... (ищешь чётное число и умножаешь его на -1, и изменяешь значение в матрице)
ЗЫ одномерная матрица это одномерный массив ? 
:D если да, то :low:
ЗЫЫ тут полная инверсия одномерного массива, не дочитал условие.
:D если да, то :low: ЗЫЫ тут полная инверсия одномерного массива, не дочитал условие.
Код
uses crt;
const n=5;
var x:array[1..n] of integer;
i,p:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
x[i]:=random(11)-random(6);
write(x[i]:2);
write(' ');
end;
for i:=1 to n div 2 do
begin
p:=x[i];
x[i]:=x[n-i+1];
x[n-i+1]:=p;
end;
writeln;
for i:=1 to n do
begin
write(x[i]:2);
write(' ');
end;
readln;
end.
const n=5;
var x:array[1..n] of integer;
i,p:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
x[i]:=random(11)-random(6);
write(x[i]:2);
write(' ');
end;
for i:=1 to n div 2 do
begin
p:=x[i];
x[i]:=x[n-i+1];
x[n-i+1]:=p;
end;
writeln;
for i:=1 to n do
begin
write(x[i]:2);
write(' ');
end;
readln;
end.
Armo , имхо ты не прав, инверсия :
12345 -> 54321
12345 -> 54321
Не не могу понять условие(( поменять элементы с четными номерами или те, значения которых четные ? на примере можешь показать из 12345 чо получится ?
klem4
Внимательно читаем задание :low:
Внимательно читаем задание :low:
Код
const
n = 5;
x: array[1 .. n] of integer =
(2, 5, 4, 1, 7);
var
i: integer;
begin
for i:=1 to n do
if not odd(x[i]) then
x[i] := -x[i];
writeln;
for i:=1 to n do
write(x[i]:3);
writeln;
end.
n = 5;
x: array[1 .. n] of integer =
(2, 5, 4, 1, 7);
var
i: integer;
begin
for i:=1 to n do
if not odd(x[i]) then
x[i] := -x[i];
writeln;
for i:=1 to n do
write(x[i]:3);
writeln;
end.
Хорошо :D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.