4. Дан массив из N частей. В нем четные числа поменять на

4. Дан массив из N элементов. В нем четные числа поменять на 0, а нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.

Задать свой вопрос
2 ответа
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Transform(t-gt;t.IsOdd?-1:0); a.Println
end.

Пример
n= 17
37 43 -6 -12 11 -50 30 -49 -35 -29 28 24 29 -11 -50 -29 -10
-1 -1 0 0 -1 0 0 -1 -1 -1 0 0 -1 -1 0 -1 0
Сема
этот вопрос не мой, чувак
Виктор Ивашков
безполезно повторять
Vaska Jashinkov
ребят, да вы чё
Тимур
всем огромное спасибо
Никита Фаленов
извините,но мне нужна старая сборка(
Варвара Кайзерова
Не сообразил
Esenija Gnezdovskaja
Не отрицаю в ни в коем случае
Const
N=10;
Var
A: array[1..N] of integer;
i: integer;
Begin
For i:=1 to N do Read(A[i]);
For i:=1 to N do Write(A[i],' ');
Writeln;
For i:=1 to N do
If A[i] mod 2=0
Then A[i]:=0
Else A[i]:=-1;
For i:=1 to N do Write(A[i],' ');
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт