Форум » Массивы, сортировка, работа с файлами » (№ 3768) (А. Кабанов) не совпадает с ответом » Ответить
(№ 3768) (А. Кабанов) не совпадает с ответом
inform_lesson: Добрый день.У меня кол-во пар =49337, минимум сходится. В чём ошибка? [pre2] var m: array of integer; i,k,a,n,min,j:integer; begin n:=5000; assign(input,'26.txt'); setlength(m,n); min:=1000000000; for i:=0 to n-1 do begin readln(a); m[ i]:=a; end; sort(m); for i:=0 to n-1-101 do for j:=i+1 to i+101 do begin if (m[ i]+m[ j])mod 10=0 then begin inc(k); if (m[ i]+m[ j])div 2<min then min:=(m[ i]+m[ j])div 2; end; end; write(k,' ',min); end. [/pre2]
Ответов - 2
cabanov.alexey: Почему вы не прочитали количество чисел из файла? Также мне кажется ошибка в циклах. Вот рабочее решение. [pre2] var m: array of integer; i, k, a, n, min, j: integer; begin assign(input, '26.txt'); readln(n); setlength(m, n); min := 1000000000; for i := 0 to n - 1 do begin readln(a); m[ i ] := a; end; sort(m); for i := 0 to n-1 do for j := i + 1 to n-1 do begin if (j-i<=101) and ((m[ i ] + m[j]) mod 10 = 0) then begin inc(k); if (m[ i ] + m[j]) div 2 < min then min := (m[ i ] + m[j]) div 2; end; end; write(k, ' ', min); end. [/pre2]
inform_lesson: Спасибо
полная версия страницы