Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Задан линейный массив .Преобразовать его элементы по следующему правилу : Четные положительные элементы заменить на 1 , а нечетные отрицательные на -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<br />   begin   
  A[i]:=-1;   
  Write(A[i], );
      end   
   else    
  Write(A[i], ); 
       end;
   END.
ответил от
x
...