Форум: «ЕГЭ по информатике»

На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

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.

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.