Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandom(20,-99,99); a.Println; a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println end.
Замечание: Если стоит задача получить именно массив, а потом его вывести, можно написать так: // PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandom(20,-99,99); a.Println; a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray; a.Println end.
Var DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer; begin readln(DepHour,DepMin,DurHour,DurMin); if DepMin+DurMin>=60 then begin ArrHour:=DepHour+DurHour+1; ArrMin:=DepMin+DurMin-60; end else begin ArrHour:=DepHour+DurHour; ArrMin:=DepMin+DurMin; end; write(ArrHour,':',ArrMin); end.
n = 20;
var
i: integer;
A: array[1..n] of integer;
begin
for i := 1 to n do
if i mod 5 = 0 then A[i] := 100
else A[i] := i;
for i := 1 to n do
writeln(A[i]);
end.