Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

В программе pascalABC.NET
1)Создать при помощи генератора случайных чисел одномерный массив размером [100], и вывести на печать отдельно элементы большие 5.

2)Дан массив из 10 элементов, посчитать среднеарифметическое значение.

3) Дан массив из 10 элементов, получить другой, состоящий из квадратов этих элементов.

более месяца назад
Просмотров : 22    Ответов : 1   

Лучший ответ:

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  // 1
  var a:=ArrRandom(100,-20,20); a.Println;
  a.Where(x->x>5).Println;
  // 2
  var b:=ArrRandom(10,-50,50); b.Println;
  Writeln(b.Average);
  // 3
  var c:=ArrRandom(10,-30,30); c.Println;
  var d:=c.Select(x->x*x); d.Println
end.

Пример
3 0 -2 4 17 8 20 -1 -20 18 -6 -9 4 15 -18 -8 0 -17 3 -19 16 -7 -8 16 -19 11 20 2 12 -3 8 9 -13 20 1 1 13 9 15 15 -7 -16 8 13 -3 -9 -16 -17 7 5 -15 -13 18 -16 -1 -11 -13 2 2 -14 9 -3 7 3 -11 6 -16 4 -6 1 -1 11 -11 8 9 11 5 0 -2 10 6 16 16 -13 -8 1 11 -17 1 -9 -6 -10 -14 8 -14 16 -2 -15 4 12
17 8 20 18 15 16 16 11 20 12 8 9 20 13 9 15 15 8 13 7 18 9 7 6 11 8 9 11 10 6 16 16 11 8 16 12
-32 1 24 -36 -37 -14 45 -26 -11 20
-6.6
6 11 -25 19 1 19 3 0 -14 13
36 121 625 361 1 361 9 0 196 169

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт





Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: