// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(30,-20,60); a.Println;
Writeln('Удвоенная сумма положительных ',(a.Where(x->x>0).Sum)*2);
Writeln('Сумма положительных, кратных 3: ',
a.Where(x->(x>0) and (x mod 3 = 0)).Sum)
end.
<u><em>Тестовое решение</em></u>
33 12 -14 -13 -13 49 -16 60 6 0 37 -6 -5 -5 31 52 49 9 30 -13 23 42 9 49 -7 42 50 44 48 30
Удвоенная сумма положительных 1410
Сумма положительных, кратных 3: 321
Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Ячейки, в которых написано "истина" или "ложь" можно потом скрыть. Я их оставил на виду, чтобы легче было понять работу программы