Войти Регистрация Спроси ai-bota

Сгенерировать массив из n=11 случайных чисел {-29; 150}, вывести. найти среднее арифметическое положительных и отрицательных чисел, вывести. поменять местами 2-й и 7-й элементы в массиве, вывести полученный массив

Ответ:

stanislavgulya

16.08.2020 12:52

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

begin
var a:=ArrRandom(11,-29,150); a.Println;
Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
Swap(a[1],a[6]);
Writeln('Результирующий массив'); a.Println
end.

Пример
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14

0,0(0 оценок)

Популярные вопросы: Информатика

orlovapolina14

10.05.2020 20:19

Определить что больше периметр прямоугольника или его площадь если известны 2 стороны . программу написать в с++, зарание...

АлександрСмуглиенко

18.12.2022 21:12

Какие основные начертания шрифтов используется в тр...

mrneneen

14.08.2022 06:52

На рассуждение. на столе поставлены в ряд бутылка минеральной воды, кружка, чашка, стакан и кувшин, причём точно в таком порядке, в каком они перечислены. в них находятся различные...

Kocoeva

14.08.2022 06:52

Дано целое число n 1. разработайте схему алгоритма, который вычисляет произведение p первых нечетных чисел s=1x3x5x7…2n-1 используйте цикл до. желательно на языке паскаль....

AngelRush0

26.07.2022 05:51

Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s 100 do begin s: =s+k; k: =k+4; end; write(k);...

razi2008900

04.08.2020 10:21

Автоморфные числа. натуральное число называется автоморфным, если оно равно последним цифрам его квадрата. например: 25^2=625. напишите программу, которая вводит натуральное число...

CheryLi

03.02.2023 06:19

Определите цель использования цифр 1 и 2 в следующем предложении 1. клавиатура, сканер, мышь 2. монитор, принтер...

nik1ado21

11.01.2020 11:42

Запишите полный и сокращенный вид условного оператора запишите общий вид оператора выбора запишите условия на языке pascal написать программу на языке pascal в отчете указать...

anastdidenko20oziw5s

11.01.2020 11:42

Задано произвольное целое число. если они больше 50,то уменьшаете его в два раза, в противном случае возвести в квадрат....

Vikula2404

05.09.2020 19:56

Из каждой пары ниже слов путём перестановки букв можно получить новое слово (буквы участвуют все), причём в четырёх парах получается название животного, а в одной нет. какая это...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку