Нужна в паскале из одномерного числового массива х длиной m, содержащего нулевые, положительные и отрицательные элементы, сформировать новый массив у, заменив в х все отрицательные элементы их модулями. найти произведение ненулевых элементов полученного массива у. вывести на чистый экран оба массива и полученное произведение.

Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.

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

uses Crt;

begin
  var x:=ArrRandom(ReadInteger('m='),-50,50);
  ClrScr; x.Println;
  var y:=x.Select(t->t<0?-t:t).ToArray; y.Println;
  Writeln(y.Where(t->t<>0).Aggregate(BigInteger(1),(p,q)->p*q))
end.

uses crt;
const nmax=100;
 var x:array[1..nmax] of integer;
     n,m,i,j,k,a,p:integer;
 begin clrscr;
randomize;
 repeat
write('Размер массива от 2 до ',nmax,' n=');
 readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
  begin  
 x[i]:=random(10);  
write(x[i]:4);  end;
 writeln; i:=1;
m:=n;
 while i<n-1 do
  begin
   k:=1;  
 a:=x[i];  
for j:=n downto i+1 do
  if x[j]=a then k:=k+1;
  if k>2 then
     begin
      j:=i;
      while j<=n do
      if x[j]=a then
       begin
        if j=n then n:=n-1
        else
         begin
          for p:=j to n-1 do
          x[p]:=x[p+1];
          n:=n-1;
         end;
     end    
  else j:=j+1;
    end
  else i:=i+1;
  end; if n=0 then
  begin
   
 exit  
end;
 if n=m then
write('Все элементы встречены не более 2 раз и не удалены') else
  begin
 for i:=1 to n do   write(x[i]:4);
 for i:=1 to n-1 do
   for j:=i+1 to n do
   if(i mod 2=0)and(j mod 2=0) and(x[i]<x[j]) then
    begin
     a:=x[i];
     x[i]:=x[j];
     x[j]:=a;
    end;
   for i:=1 to n do
   write(x[i]:4);
  end;

Математика: ложное4+3=5, истинное 4+4=8
Биология: ложное животные это неживая природа,истинное биология это  система наук, объектами изучения которой являются живые существа их взаимодействие с окружающей средой
Информатика: ложное информатика - наука о термической обработке металлов,
истинное  информатика-наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации
История-ложное: первая мировая война началась 7 августа 1920,истинное первая мировая война началась 28 июля 1914
География-ложное Эльбрус — высочайшая горная вершина Европы,
истинное Эльбрус – не высочайшая горная вершина Европы
Литература-ложное:С.Есенин-драматург,истинное А.Пушкин-поэт-драматург