1. Заполнить массив из 10 целых частей случайными числами из спектра

1. Заполнить массив из 10 целых элементов случайными числами из спектра от -15 до 15 Обеспечить
вывод начального массива на экран. Подсчитать сумму положительных элементов массива.
2. Дан массив из 15 целых частей. Обеспечить наполнение массива с клавиатуры. Преобразовать
массив: всем нечетным элементам присвоить значение 1 Обеспечить вывод получившегося массива
на экран.
3. Дан массив из 10 вещественных частей. Обеспечить наполнение массива с клавиатуры.
Подсчитать среднее арифметическое положительных элементов массива.

Задать свой вопрос
1 ответ

//PascalABC.NET 3.4.2

1.

begin

 write(arrrandom(10, -15, 15).Println.Where(x -gt; x gt; 0).Sum);

end.

2.

begin

 readarrinteger(15).Select(x -gt; x mod 2 lt;gt; 0 ? 1 : x).Println;

end.

3.

begin

 readarrreal(10).Where(x -gt; x gt; 0).Average.Println;

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт