Нужно написать 2 программы pascal 1. Дан одномерный массив из 20 элементов, массив заполнен случайными числами от -50 до 50. Вывести на экран все отрицательные элементы массива. 2. Дан одномерный массив из 30 элементов, массив заполнен случайными числами от 0 до 50. Найти сумму элементов массива.
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.
Прикрепляю файлы с программами во вложения.
===PascalABC.NET===