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

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(t->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

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу для сортировки элементов массива произвольной длины по убыванию.пож надо

kost [6]

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Println;
a.SortedDescending.Println;
end.

Тестовое решение
n= 17
-38 37 -82 54 62 -28 33 37 -61 63 -66 63 -81 -63 3 38 12
63 63 62 54 38 37 37 33 12 3 -28 -38 -61 -63 -66 -81 -82

0 0

3 года назад

Как запустить панель управления через командную строку?

jardan [54]

Win+r там пишешь control

0 0

4 года назад

По запросу [Джобс & Гейтс] найдено 6.0 млн. документов. По запросу [Джобс] найдено 25.0 млн. документов. По запросу [Гейтс]

renat5000 [7]

2 = Джобс & Гейтс = 6.0 млн

1 + 2 = Джобс = 25.0 млн

2 + 3 = Гейтс = 40.0 млн

1 + 2 + 3 = Джобс | Гейтс = 1 + 2 + 2 + 3 - 2 = Джобс + Гейтс - Джобс & Гейтс = 25.0 млн + 40.0 млн - 6.0 млн = 59.0 млн

0 0

4 года назад