Автор | Сообщение |
|
Отправлено: 18.03.22 14:25. Заголовок: (№ 3768) (А. Кабанов) не совпадает с ответом
Добрый день.У меня кол-во пар =49337, минимум сходится. В чём ошибка? 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.
|
|
|
Ответов - 2
[только новые]
|
|
|
Отправлено: 18.03.22 15:54. Заголовок: Почему вы не прочита..
Почему вы не прочитали количество чисел из файла? Также мне кажется ошибка в циклах. Вот рабочее решение. 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.
|
|
|
|
Отправлено: 21.03.22 07:17. Заголовок: Спасибо..
Спасибо
|
|
|
|