ВОТ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
// 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
Program summa;
var i,n:integer;
begin
for i:=10 to 15 do
n:=n+i;
writeln('Summa 4isel ot 10 do 15= ',n);
end.<span>
</span>
Попытайся просто создать новую папку и перетащить туда презентации.
Если презентации тебе не нужны,то удали их просто нажав правую кнопку мыши и "удалить".