Что получилось, на скрине.
Код в файле.
Получилось не очень, не по чертежам =)
Const n=10;
var a:array[1..n] of integer;
k,i,j:integer;
begin
for i:=1 to n do read(a[i]);
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;
writeln('k = ',k);
end.
Пример:
12 56 38 12 85 12 60 45 38 15
<span>k = 4</span>
Начало: D:\ДОКУМЕНТЫ\ФОТО\2011\ВЕСНА
После поднятия на 3 уровня вверх: D:\ДОКУМЕНТЫ\
После спуска в ИНФОРМАТИКА: <span>D:\ДОКУМЕНТЫ\ЭКЗАМЕН\ИНФОРМАТИКА
Ответ: 3</span>
В блок-схеме прямоугольник - действие(оператор), ромб - условие, овал - начало и конец алгоритма, параллелограмм - ввод и вывод данных, шестиугольник - условие в циклическом алгоритме.