var a,b: array[1..n] of integer; i, j, i2: integer;
begin Randomize; Writeln('Элементы массива'); j:=0; for i := 1 to n do begin a[i] := Random(51)-25; Write(a[i]:4); if a[i]<0 then begin Inc(j); b[j]:=a[i] end; end; Writeln; for i := 1 to n do if a[i]>=0 then begin Inc(j); b[j]:=a[i] end; Writeln('Результат'); for i := 1 to n do Write(b[i]:4); Writeln end.
type mas = array [1..10] of integer; var m : mas; a,l : integer;
function re () : integer; //Считываем число var a : integer; begin writeln ('Введите число'); readln (a); Result :=a; end;
function C(var m : mas; a : integer) : integer; //Разбиваем на числа var i : integer; begin i := 0; While a > 0 do begin i := i +1; m[i] := a mod 10; a := a div 10; end; Result := i; end; procedure wr (a : mas; l : integer); // Вывод массива var i : integer; begin writeln ('Resultat :'); for i := 1 to l do write (a[i],' '); end; procedure sort (var a : mas; l : integer); // перевернуть массив // т.е 1234 -> 4321 var i,buf : integer; begin for i := 1 to l div 2 do begin buf := a[l-i+1]; a[l-i+1] := a[i]; a[i] := buf; end; end;
begin a := re(); l := C(m,a); sort (m,l); wr (m,l); end.
на примере числа 125 после выполнения функции C m[1] = 5 m[2] =2 m[3] =1 после выполнения процедуры Sort m[1] =1 m[2] =2 m[3] =5 Вывод на экран элементов массива через пробел 1 2 5
3
Объяснение:
По формуле найдём сколько диагоналей в выпуклом 72-угольнике
Так 4%*50-600,88=25813угла