[Pascal ABC.NET] Помогите сделать блок-схему для заданной программы.

[spectatorss]

begin
var a:=ReadArrInteger(10);
Write('Массив A: '); a.Println;
var s:=a.Where(t->t<0); // последовательность не хранится
var an:=s.Average;
Writeln('Отрицательных элементов: ',s.Count,', среднее= ', an);
var b:=a.Select(t->t<0?an:t).ToArray;
Write('Массив В: '); b.Println
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[digitalis]

Поскольку тут нет ни циклов, ни ветвлений, то схема представляет собой нарисованные в один ряд, один за одним, УГО операторов. Каково изображение УГО процессов вычисления и операторов ввода-вывода - http://cert.obninsk.ru/gost/282/282.html
В общем, там будут только элементы 3.1.2.8 и 3.2.1.1 . Ну и 3.4.2, само собой.
Такое нарисовать могут даже лошади, че уж говорить о людях с мииинимальной соображалкой в боошке.
Рисуй, я поправлю
Что за язык-то? На Паскаль мало похож.

[Serge_Bliznykov]

Сообщение от digitalis

На Паскаль мало похож.

Pascal ABC.NET (этакая жуткая помесь Паскаля и .NET )

И код, кстати, рабочий (я проверял) и вполне себе адекватный (решающий конкретную задачу на массивы).