// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-99,99); a.Println; var b:=new integer[n div 2]; Range(1,n-1,2).ForEach(i->begin b[(i-1) div 2]:=a[i] end); b.Println end.
// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,k,s:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if Odd(a[i,j]) then Inc(k) end; Writeln end; if k>5 then begin Writeln('Средние арифметические отрицательных элементов по строкам'); for i:=1 to m do begin s:=0; k:=0; for j:=1 to n do if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end; if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000'); end end else begin Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end; Writeln end end end.
Трехзначное число в системе счисления по основанию p может быть записано, как Разница между максимальным и минимальным трехзначными числами должна превышать десятичное число 200 (пока не будем учитывать дополнительное ограничение на несимметричность), т.е. В целых числах получаем условие p≥6, т.е. основание системы счисления не может быть меньше 6. Найдем, сколько трехзначных чисел можно получить в системе счисления с основанием 6: Симметричными будут числа вида 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 6. Итого получается пять групп, в каждой из которых шесть чисел, т.е. всего трехзначных симметричных чисел может быть 30. Следовательно, в системе счисления по основанию 6 можно записать 215-30=185 трехзначных несимметричных чисел, что меньше ограничения 200. Проверим систему счисления по основанию 7: Симметричными будут числа вида 6х6, 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 7. Итого получается шесть групп, в каждой из которых семь чисел, т.е. всего трехзначных симметричных чисел может быть 42. Следовательно, в системе счисления по основанию 7 можно записать 342-42=300 трехзначных несимметричных чисел, что превышает ограничение 200.
![N_{(p)}=n_2\times p^2+n_1\times p^1+n_0\times p^0; \\ N_{(p)}=n_2\times p^2+n_1\times p+n_0, \ \begin {cases} p \in \mathbb Z, \{n_2,n_1,n_0\} \in \mathbb Z \\ n_2 \in [1;p-1], \ \{n_1,n_0\} \in [0;p-1] \\ n_2 \ne n_0 \end {cases}](/tpl/images/0282/1188/e0f7f.png)
![\big((p-1)\times p^2+(p-1)\times p+(p-1)\big)-\big((p^2+0\times p^1+0)\big)200; \\ (p^3-p^2+p^2-p+p-1)-p^2200; \ p^3-1200 \to p \sqrt[3]{200}](/tpl/images/0282/1188/28fa8.png)
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-99,99); a.Println;
var b:=new integer[n div 2];
Range(1,n-1,2).ForEach(i->begin b[(i-1) div 2]:=a[i] end);
b.Println
end.
Пример
n= 11
-30 -1 -29 -7 11 45 23 -90 -28 96 -38
-1 -7 45 -90 96