1. выделить объект
2. нажать на нем правую кнопку мыши
const
n=10;
var
a:array [1..n] of real;
z,i,k:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
write ('Z = ');readln(z);
for i:=1 to n do
if a[i]>z then begin
a[i]:=z;
k:=k+1;
end;
for i:=1 to n do
if frac(a[i])=0 then write (a[i]:0:0,' ') else write (a[i]:0:1,' ');
writeln ('Kol-vo zamen: ',k);
readln;
end.
1набрать полное А
перелить все А в В
набрать полное А
доливать из А воду в В пока В не наполниться
в А осталось 2 литра
2(набрать полное А
перелить все А в В)-3 раза
набрать полное А
доливать из А воду в В пока В не наполниться
вылить В
перелить А в В
набрать полное А
долить А в В
в В 5 литров
3 (набрать полное А
вылить А в В )-2 раза
набрать полное А
доливать из А воду в В пока В не наполниться
в А осталось 2 литра
Если N это количество чисел, начинаем с 3