Нужно написать 2 программы pascal 1. Дан одномерный массив из 20 элементов, массив заполнен случайными числами от -50 до 50. Вывести на экран все отрицательные элементы массива. 2. Дан одномерный массив из 30 элементов, массив заполнен случайными числами от 0 до 50. Найти сумму элементов массива.

Прикрепляю файлы с программами во вложения.

===PascalABC.NET===

// PascalABC.NET

begin

 // 1

 var a := ArrRandom(20, -60, 50);

 a.Println.Where(p -> p < 0).Println;

 // 2

 var b := ArrRandom(30, 0, 50);

 b.Println.Sum.Print

end.

Windows 1.0 (1985)
Windows 2.0 (1987)
Windows 2.1 (1987)
Windows 3.0 (1990)
Windows 3.1 (1992)
Windows for Workgroups 3.11 (1992)
Windows NT 3.5 (1994)
Windows NT 3.51 (1995)
Windows 95 (1995)
Windows NT 4.0 (1996)
Windows 98 (1998)
Windows 98 SE (1999)
Windows 2000 (2000)
Windows ME (2000)
Windows XP (2001)
Windows Server 2003 (2003)
Windows XP 64-bit Edition (2005)
Windows Vista (2006)
Windows Home Server (2007)
Windows Server 2008 (2008)
Windows Small Business Server (2008)
Windows 7 — Windows NT 6.1 (2009)
Windows Server 2008 R2 (2009)
Windows Home Server 2011 (2011)
Windows 8 (2012)
Windows Server 2012 (2012)

Var a,b,c,d,e,x: integer;
BEGIN
    readln(a,b,c,d,e);
    if {1} a>b then begin x:=a; a:=b; b:=x;  end;
    if {2} c>d then begin x:=c; c:=d; d:=x;  end;
    if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
    if {4} c>e then
        if {5} b>c then
            if {6} b>d then
                if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
                    else begin x:=e; e:=b; b:=x; end
                else
                if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
                    else begin x:=e; e:=d; d:=b; b:=x; end
            else
            if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x;  end
                else
                if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x;  end
                    else begin x:=e; e:=d; d:=c; c:=x;  end
        else
        if {5} d>e then
            if {6} b>e then
                if {7} b>d then begin x:=e; e:=b; b:=c; c:=x;  end
                    else begin x:=e; e:=d; d:=b; b:=c; c:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x;  end
                    else begin x:=e; e:=d; d:=x;  end
            else
            if {6} b>d then
                if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x;  end
                    else begin x:=b; b:=c; c:=d; d:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x;  end;
    writeln;
    writeln(a,' ',b,' ',c,' ',d,' ',e);
END.