Регистрация
nadya5745
25.09.2021 02:35
Информатика
Есть ответ 👍

Решить через 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.​

143
268
Посмотреть ответы 2

Ответы на вопрос:

ladygum78
ladygum78
4,5(37 оценок)

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.

iDanee
iDanee
4,6(71 оценок)
1935 год,xx век,

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