Составьте программку, которая наполняет массив а[1..10] случайными целыми числами в спектре

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, 1, 10);

 a.Println;

 a.Transform(t -gt; t.IsEven ? t + 1 : t);

 a.Println

end.

Пример

7 4 10 9 5 8 2 6 9 10

7 5 11 9 5 9 3 7 9 11

на C++:

includelt;iostreamgt;

using namespace std;

int main()

int a[10];

for (int i = 1; i lt;= 10; i++)

if (a[i] % 2 == 0)

a[i]++;

cout lt;lt; a[i] lt;lt; " ";

return 0;