Дано: for i: =23 downto 4 do i изменяется до с

I изменяется от 23 до 4 с шагом -1.

1.Наливаем в кувшин с 8-ю литрами воду. Из кувшина с 8-ю литрами переливаем воду в кувшин с 3-мя литрами и выливаем воду из 3-ёх литров, у 8-ми литрового кувшина осталось воды 5л. Далее опять из 8-ми литрового (в котором уже 5 литров) кувшина переливаем воду опять в 3-ёх литровый кувшин, выливаем воду из 3-ёх литрового. В кувшине с 8-ю литрами осталось 2 литра воды, переливаем 2 литра в 3-ёх литровый кувшин. Наливаем в 8-ми литровый воду и выливаем 1 литр из 8-ми литрового в 3-ёх литровый кувшин, получаем 7 литров в 8-ми литровом кувшине. Выливаем воду из 3-ёх литрового. Выливаем из 8-ми литрового 3 литра в 3-ёх литровый и получаем 8-ми литровый кувшин с 4-мя литрами. Далее выливаем из 3-ёх литрового кувшина воду и наливаем с 8-ми литрового 3 литра в 3-ёх литровый кувшин.В итоге в 8-ми литровом кувшине остался 1 литр воды.
2.458 убираем последнюю цифру (8)
45*2=90
у 90 убираем последнюю цифру (0)
9*2=18
18*2=36
36*2=72
у 72 убираем последнюю цифру (2)
7*2=14

const n=20;

var a:array [1..n] of integer;

i,max,maxi,min,mini:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random(101)+50;

write (a[i],'  ')

end;

max:=a[1];

maxi:=1;

min:=a[1];

mini:=1;

for i:= 1 to n do

begin

if a[i]>max then

begin

max:=a[i];

maxi:=i

end;

if a[i]<min then

begin

min:=a[i];

mini:=i

end

end;

writeln;

writeln('Максимальный элемент ',max,' и его номер ',maxi);

writeln('Минимальный элемент ',min,' и его номер ',mini)

end.

Или (если max или min элемент будет не один)

const n=20;

var a:array [1..n] of integer;

i,max,min:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random(101)+50;

write (a[i],'  ')

end;

max:=a[1];

min:=a[1];

for i:= 1 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i]

end;

writeln;

for i:= 1 to n do

begin

if a[i]=max then writeln('Максимальный элемент ',max,' и его номер ',i);

if a[i]=min then writeln('Минимальный элемент ',min,' и его номер ',i)

end

end.