132. На
Оста-
9
пути. Пока же
на
полустанке одноколейной
железной
дороги
новился поезд в составе тепловоза и трёх вагонов, до-
ставивший бригаду рабочих для строительства второго
этом полустанке имеется небольшой
тупик, где при необходимости может поместиться тепло-
воз с вагоном или два вагона. Вскоре к тому же полу-
станку подошёл грузовой состав (тепловоз и 7 цистерн).
Как пропустить пассажирский поезд?

Информативность сообщения

область взаимодействия между человеком, воспринимающим текст, и информационной насыщенностью текста, обусловленная избирательной воспринимающего человека, т.е. пределом различимости. Для различимости, т.е. понимания смысла высказывания, переводчику необходимо применить весь предыдущий опыт или знание обстановки общения именно к данному языковому содержанию. Информативность сообщения основывается на следующих требованиях: (1) синтаксических, согласно которым смысл должен быть логически вводим из наблюдаемого соотношения языковых единиц. Это означает, что переводчик должен установить принадлежность исходного текста к определенной знаковой системе по характеру отношений между знаками, составляющими текст; (2) семантических, согласно которым смысл, выводимый из данного соотношения языковых единиц, отражает то или иное состояние реальной действительности, включая вымысел. Это означает, что переводчик должен соотнести языковое содержание данного текста со смыслом (отражение реальной или вымышленной ситуации); (3) прагматических, согласно которым в смысл, придаваемый тексту, включается оценка как отраженной действительности, так и ее отражения. Это означает, что переводчик должен дать оценку, близкую к авторской или соответствующую непосредственным задачам перевода.

Сколько элементов массива?
Допустим, 10.

Var
A: array [1..10] of integer;
i, min, max, imin, imax: integer;
Begin
for i:=1 to 10 do
read(A[i]);
min:=A[1]; max:=A[1];
for i:=1 to 10 do
begin
if A[i] > max then
begin
max:=A[i];
imax:=i;
end;
if A[i] < min then
begin
min:=A[i];
imin:=i;
end;
end;
if imin<imax then
for i:=(imin+1) to (imax-1) do
A[i]:=sqr(A[i])
else
for i:=(imax+1) to (imin-1) do
A[i]:=sqr(A[i]);
writeln('Максимальное значение: ', max, ', минимальное: ', min);
for i:=1 to 10 do
write(A[i], ', ');
end.

Немного пояснений:
по условию, только элементы между минимумом и максимумом возводятся в квадрат, отсюда эти imax-1 и imin+1.

Пример действия:
1
2
4
999
765
624
0
83
64
63
Максимальное значение: 999, минимальное: 0
1, 2, 4, 999, 585225, 389376, 0, 83, 64, 63,