Удаление
копирование
перемещение
вставка
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
По горизонтали: 1. Файл. 3. Хранения. 5. Оперативная. 7. Фотография. 8. Бумага. 10. Китай. 11. Пергамент.По вертикали: 1. Фонограф. 2. Береста. 4. Долговременная. 6. Информация. 9. Папирус.
Program znanija;
var b:integer;
begin
writeln('Какой у вас пульc(в ударах в минуту)?');
readln(b);
begin if b=60 then writeln('Это нормальный пульс человека')
else writeln('Ваш пульс не соответствует норме');
end;
<span>end.</span>