Форум » Обработка числовых последовательностей » С4 задача 25 » Ответить
С4 задача 25
STARK: Подойдет ли такое решение задачи, если да, то сколько вы поставили бы за него баллов? var a: array[0..9] of integer; i, j, n, mi, ma: integer; c: char; begin for i := 0 to 9 do // обнуляем массив a := 0; repeat // читаем данные read(c); if c <> '.' then begin n := strtoint(c); a[n] := a[n] + 1; end; until c = '.'; mi := 0; ma := 0; writeln; for i := 0 to 9 do begin for j := 0 to 9 do //ищим максимальное значение if (a[j] > mi) and ((a[j] < ma) or (ma = 0)) then mi := a[j]; if mi = 0 then // прерываем цикл break; for j := 0 to 9 do // вывод результата if mi = a[j] then write(j); ma := mi; mi := 0; end; end.
Ответов - 2
Поляков: Прочитайте внимательно условие. В тексте могут быть не только цифры.
STARK: В условии сказано: На вход программе подается последовательность цифр, заканчивающаяся точкой (другие символы, кроме цифр и точки, отсутствуют). Именно по этому я ввел условие: if c <> '.' then
полная версия страницы