<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u> <u>// Внимание! Если программа не работает, обновите версию!</u>
begin var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем', 'Мороз ИЛья','Павлова','Глухих'); s.Println; s:=s.OrderBy(t->t.ToUpper).ToArray; s.Println end.
Var i,sum:integer; a:array[1..10] of integer; begin; for i:=1 to 10 do readln(a[i]); next i; sum:=0; for i:=1 to 10 do sum:=sum+a[i]; next i; writeln('Сумма элементов = ',sum); end.