Какие изменения необходимо внести в приведенный ниже фрагмент программы, чтобы с его помощью можно было бы установить есть ли в массиве А[1..N] хотя бы два одинаковых элемента?
begin . . . t:=false; y:='нет одинаковых элементов'; i:=1; while (i <= N) and (t = false) do begin j:=1; while (j <= N) and (t = false) do begin if A[i] = A[j] then begin t:=true; y:='есть одинаковые элементы'; j:=j+1; end; i:=i+1; end; end; writeln(y) end.
a) Логическое выражение (i <= N) and (t = false) заменить выражением (i <= N) or (t = false) b) Логическое выражение (i <= N) and (t = false) заменить выражением (i <= N-1) and (t = false) c) Оператор j:=1; заменить оператором j:= i+1; d) Оператор j:=1; заменить оператором j:= i; e) Зарезервированное слово end без точки с запятой записать после оператора y:=?есть одинаковые элементы?; и вставить зарезервированное слово else перед оператором j:=j+1 f) Оператор i:=i+1; записать между двумя идущими подряд зарезервированными словами end g) Оператор j:=j+1; записать перед оператором i:=i+1; h) Логическое выражение (j <= N) and (t = false) заменить выражением (j <= N) or (t = false)