Решить через pascal.

б)задан массив p(10) (элементы его выбрать самостоятельно). построить новый массив b, элементы которого вычисляется по формуле: p
b=0,5sin(p) + 0,1. отобрать в новом массиве все положительные значения и если их количество будет больше 5, то массив b отпечатать печатать без изменения, в противном случае, присвоить положительные значения массива в число 1.

в)произвести выборку в массиве х=( -1; - 2; 3; 4; 5; - 7; - 12; 1; 0,8; - 6; 5; 7; - 2; 0,1; 0; 3; - 8; - 5) то есть формировать 4 массива. первый содержит записанные в подряд положительные элементы массива x, второй - отрицательные элементы массива х. третий - подряд записанные порядковые номера элементов первого массива, которые они имели в массиве x, четвёртый массив содержит подряд записанные индексы элементов второго массива, которые они имели в массиве x.

Ответы

катя12362 10.10.2020 23:09

===== PascalABC.NET =====

- Б) -

begin

var p := ArrRandom(10, -10, 10);

Print('P:');

p.Println;

var B := p.Select(q -> 0.5 * Sin(q) + 0.1).ToArray;

Print('B:');

if B.Count(p -> p > 0) <= 5 then

B.Transform(q -> q > 0 ? 1.0 : q);

B.Println

end.

- В) -

begin

var x: array of real := (-1, -2, 3, 4, 5, -7, -12, 1,

0.8, -6, 5, 7, -2, 0.1, 0, 3, -8, -5);

x.Println;

var x1 := x.Where(p -> p > 0).Println.ToArray;

var x2 := x.Where(p -> p < 0).Println.ToArray;

var x3 := x.Indices(p -> p > 0).Select(p -> p + 1).Println.ToArray;

var x4 := x.Indices(p -> p < 0).Select(p -> p + 1).Println.ToArray

end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

piotrewch 07.08.2019 00:20

etereshinakolo 07.08.2019 00:20

Annalmak 10.08.2019 01:50

egyrt 30.04.2021 17:16

Sofochka1309 30.04.2021 17:12

Grotesk1077 20.05.2019 13:46

lollllla1 07.07.2019 10:40

aidana200257 07.07.2019 10:40

Aruzhka001 26.11.2020 16:05

Реши квадратное уравнение 2(2x−12)2−10(2x−12)+8=0...

dayn915 26.11.2020 16:05