Вопрос по информатике:
Задан линейный массив .Преобразовать его элементы по следующему правилу : Четные положительные элементы заменить на 1 , а нечетные отрицательные на -1 .Остальные оставить без изменения
- 03.11.2017 17:26
- Информатика
- remove_red_eye 13190
- thumb_up 22
Ответы и объяснения 1
Program asd;
Const n=10;
var A:array[1..n] of integer;
i:integer;
BEGIN
Randomize;
For i:=1 to n do
begin
A[i]:=1+Random(10)-4;
Write(A[i],' ');
end;
Writeln;
For i:=1 to n do
begin
If (A[i] mod 2=0) and (A[i]>0) then
begin
A[i]:=1;
Write(A[i],' ');
end
else
If (A[i] mod 3=0) and (A[i]<0) then
begin
A[i]:=-1;
Write(A[i],' ');
end
else
Write(A[i],' ');
end;
END.
- 04.11.2017 13:37
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.