Блок-схема - в прилагаемом файле.
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
0 0
8 0
5 3
5 0
2 3
2 0
0 2
8 2
7 3
7 0
4 3
Первая цифра-кувшин 8л,вторая цифра кувшин 3 л. Набираем кувшин 8 л и переливаем из него жидкость в кувшин 3л.Потом из 3л выливаем жидкость. Повторяем пока не получиться 4л.
1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***