Можете запрограммировать вот эту часть блок-схемы? Информатика 9 класс, Паскаль Пожалуйста, очень важно!!!
k := 0;
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] = a[j] then
k := k + 1;
if k = 0 then
Writeln('нет')
else
Writeln('да')
Спасибо огромное))!!
