<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
<span>Словесные<span>
</span></span><span>При помощи языка мы общаемся, передавая друг другу мысли, чувства, знания об окружающем нас мире. В общении наиболее распространены такие информационные модели, как словесные описания. Усилить образность текста можно за счет его фигурного расположения, смены шрифтов или изменения начертания. </span>
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Перечитай вопрос, исправь, я переведу