Const A:array[0..10] of integer =(0,1,2,3,4,5,6,7,8,9,10);var i,s,n:integer;begins:=27;n:=10;write(A:4);writeln;for i:=0 to n-1 do begin s:= s + A[i] - A[i+1] + 2;writeln(i:3,A[i]:4);end;write('s=',s);end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
Writeln('s=',a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1>0)
.Select(x->x.Item2).Sum)
end.
<u><em>Тестовое решение:</em></u>
n= 15
-27 45 -9 38 -30 -22 -36 18 -40 5 -47 5 33 -21 -44
s=49
Вот алгоритм, рисующий все цифры, включая ноль (если он не нужен, удалите строки этого блока).
Для каждой цифры выделен блок строк, которые её рисуют.
Блоки можно копировать, переставлять и комбинировать в любом порядке, при этом выбранные цифры будут аккуратно рисоваться друг за другом.
использовать Чертежник
алг
нач
поднять перо
сместиться на вектор (-9,0) |начальная позиция
опустить перо |0
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (2,0)
сместиться на вектор (0,1) |1
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
сместиться на вектор (0,2) |2
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо |3
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,-2)
сместиться на вектор (0,2) |4
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |5
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
опустить перо |6
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (0,2)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
сместиться на вектор (0,2) |7
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |8
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо |9
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-1)
кон