Ответ:
s = 220
Объяснение:
Сделал программу вычисляющую s.
var n,s: integer;
begin
n:= 40;
s:= 0;
while n<50 do begin
if (n<50) and (n mod 2 = 0) then s:=s+n;
n:=n+1
end;
writeln(s);
end.
FCEditor 1.6
Эта программа умеет по коду рисовать блоксхемы. Правда на ошибки она привередливая.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
Чтобы было проще, строим граф
По нему видно, что кратчайший путь ABDE=2+3+1=6, поэтому ответ №2