// Pascal ABC.Net версия 3.2 сборка 1387
begin
writeln('исходный массив:');
var a:=ArrRandom(100,-1000,1000).Println();
writeln('1 50 по возр:');
a.Reverse().Skip(50).Sorted().Println();
writeln('2 50 по убыв:');
a.Skip(50).SortedDescending().Println();
end.
Алгоритм это порядок слов которые ты набираешь
Держи программу на паскале, если есть вопросы, то пиши
program test1;var x,y,K,N:integer;beginwrite('Введите размер конверта х и у см');read(x);read(y);write('Введите размер открытки K и N см');read(K);read(N);if (x>=K) and (y>=N) thenwrite('открытка войдет')else write ('не войдет');end.
Орел-зрение
Волк-обоняние
Летучая мышь-слух
Дельфин-слух
Крот-осязание
Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш