Какой режим используется (Сортировщик слайдов, Страница заметок, Показ слайдов, Обычный) на данной картинке:

269

Посмотреть ответы 1

Ответы на вопрос:

lren1

Информатика

4,5(86 оценок)

Var a: array[1..10] of integer; var i, j, ans: integer; begin ans: =0; for i: =1 to 10 do begin readln(a[i]); end; for i: =1 to 10 do begin for j: =i+1 to 10 do begin if a[i]=a[j] then ans: =ans+1; end; end; if ans> 0 then writeln('есть') else writeln('нет'); end.