• Все четные положительные элементы целочисленного массива уменьшить вдвое, все нечетные положительные увеличить на 2, а у всех остальных поменять знак.

Ответы 1

  • var i,k:integer;    a:array[1..30] of integer;begin for i:=1 to 30 do begin  a[i]:=random(30)-15;  if (a[i]>0) and (a[i] mod 2 = 0) then a[i]:=a[i] div 2;  if (a[i]>0) and (a[i] mod 2 <> 0) then a[i]:=a[i]*2;  if a[i]<0 then a[i]:=a[i]*-1; end; for i:=1 to 30 do writeln(a[i]);end.
    • Автор:

      persysjqa
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years