Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а. n:=1; k:=0; for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных if (k=0) then writeln("Отрицательных нет.") else begin for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный writeln("Наибольшее из отрицательных чисел данной последовательности - ",n); end; end.
Объяснение:
ответ: у орла наиболее развито зрение; у волка — обоняние; у летучей мыши — слух; у дельфина — слух; у крота — осязание.