Посчитать количество нулей в 15 произвольно введенных с клавиатуры чисел, используя цикл с предусловием.
Составить алгоритм в виде блок-схемы. Обозначить за x - введенное число, I - кол-во нулей.
Паскаль не надо, питон тоже не надо, только блок-схему​.

Имеется всего 6 вариантов как назначить бакам целевой мусор. Например, в 1-й бак собираем стекло, во 2-й бак бумагу, в 3-й бак жесть. Другой вариант: в 1-й стекло, 2-й жесть, 3-й бумага. Всего имеется шесть таких вариантов.

Можем тупо перебрать эти варианты сборки из исходных данных, и увидеть который даст меньшую сумму перекладок. Можешь сделать это самостоятельно, а мне лень. 

Идём дальше, и заметим, что сумма перекладок составляет общую сумму всех предметов во всех баках, за минусом тех, которые изначально уже находятся в своих баках. Эта логика верна для любого из шести начальных вариантов.

А что такое предметы, уже находящиеся в своих баках? Это значит, что для данного из шести вариантов наборов баков имеется только одно число в своей строке таблицы, которое указывает на уже лежащий предмет. Например, если баки назначаем так: стекло, бумага, жесть, то из общей суммы всех предметов задачи нужно вычесть числа 52, 83, 75 - то есть лежащие на главной диагонали таблицы. 

Для нахождения решения задачи нам нужно подобрать такую перестановку столбцов заданной таблицы, чтобы сумма чисел, находящихся на главной диагонали была максимальной. При таком варианте общая сумма перекладок предметов будет минимальна.

Руководствуясь этим принципом, нужно найти такую комбинацию выбора трёх чисел из заданной таблицы, чтобы они все три одновременно принадлежали как разным строкам, так и разным столбцам; и при этом сумма выбранных чисел была бы максимальной из всех (а их 6) вариантов выбора.

Мне неохота перебирать все эти комбинации, сделай сам. Но навскидку кажется, что если из первого столбца выберу максимальное число (98), из второго столбца уже выбранную строку (вторую) трогать нельзя, поэтому среди верхнего (58) и нижнего (83) выберу наибольшее, и это 83. Таким образом, вторая и третья строки заняты. Из третьего столбца остаётся, что можно взять только число из первой строки, и это 64.

Сумма 98+83+64 = 245 - это число предметов, которые не нужно перекладывать, они сразу лежат в своих баках.

Общее число предметов в задаче - сумма всех 9 чисел таблцы, у меня получилась 693.

ответом будет число перекладок, равное общему числу предметов, минус которые не надо перекладывать. То есть 693 - 245 = 448.

Думаю что это и есть ответ. Но лучше проверь остальные 5 вариантов назначения баков своим видам мусора, и получишь ещё пять чисел. ответом будет наименьшее из них. Чисто нвскидку мне кажется, что это и будет 448.    

Вот моя игра .  Угадай число.

 

program k2game;
uses crt;
var i,a,n:integer;
begin
textbackground(14);
clrscr;
gotoxy(33,2);
textcolor(4);
writeln('Игра "Угадай число!" ');
delay(400);
textcolor(5);
gotoxy(23,4);
writeln('1. Компьютер загадывает число от 0 до 9.');
delay(840);
textcolor(5);
gotoxy(23,5);
writeln('2. Ваша задача - угадать это число!');
delay(840);
textcolor(5);
gotoxy(23,6);
writeln('3. Не забывайте, что у вас всего две попытки!');
delay(640);
textcolor(5);
gotoxy(23,7);
writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');

randomize;
a:=random(10);
n:=0;
textcolor(0);
repeat
gotoxy(23,9);
введите число.');
gotoxy(23,10);
readln(i);
if (i <> a) then
begin
n:=n+1;
gotoxy(23,11);
if (i>a) then writeln('Подсказка: Загаданное число меньше.')
else writeln('Подсказка: Загаданное число больше.')
end;
until ((i=a) or (n=2));

gotoxy(23,13);
textcolor(2);
if (i=a) then writeln('Поздравляю! Вы выйграли!')
Else writeln('К сожалению,н

о вы проиграли!');

end.