Question

Написать программу , осуществляющую заполнение массива случайными числами из интервала от -10 до 10, вывести его на экран, а затем все элементы из интервала от -5 до 5 увеличить на 1, массив повторно вывести на экран.

Answer 1

                                 PascalABC.NET                                  

Ответ:

• begin
• var a := ArrRandom(30, -10, 10);
• a.Println;
• a.ForEach((x, i) -> if x in -5..5 then a[i] += 1);
• a.Println;
• end.

Пояснение:

Вместо 30 можно любое другое, это размер массива. Можно заменить на ReadInteger - будет требовать ввод значения с клавиатуры.

Пример работоспособности: