Задан линейный массив .Преобразовать его элементы по следующему правилу : Четные положительные элементы заменить на 1 , а нечетные отрицательные на -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.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
Самые новые вопросы