НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной m, содержащего нулевые,...

Question

НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной m, содержащего нулевые, положительные и отрицательные элементы, сформировать новый массив У, заменив в Х все отрицательные элементы их модулями. Найти произведение ненулевых элементов полученного массива У. Вывести на чистый экран оба массива и полученное произведение.

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
  var y:=x.Select(t->t<0?abs(t):t); y.Println;<br>  Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.

Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384 

Comments

мне желательно турбо Паскаль нужен

---

Очень поздно написали, нужно в условии уточнять

---

Турбо Паскаль он же вроде как обычный только с граф. ядром, сейчас напишу код

---

var
x,y:array[1..100] of integer;
i,a,n:integer;
begin
write('Введите размер массива: ');readln(n);
for i:=1 to n do begin
x[i]:=Random(10)-5;
write(x[i],' ');
end;
writeln;
for i:=1 to n do begin
y[i]:=x[i];
if x[i]<0 then y[i]:=abs(x[i]);<br> write(y[i],' ');
end;
a:=1;
writeln;
for i:=1 to n do
if y[i]<>0 then a:=a*y[i];
writeln('Произведение: ',a);
end.

---

Пример:

---

Введите размер массива: 5
0 4 -1 0 -1
0 4 1 0 1
Произведение: 4

---

Слодно после 3.3 по обычному писать, хочеться что-то добавить из новенького, а нельзя()