Series32. Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2, или число 0, если в данном наборе нет двоек.
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
использовать Файлы П алг Series_32 (арг цел K) нач цел fi цел A, EL цел i, j нц для i от 1 до K fi:=открыть на чтение("series_"+цел_в_лит(i)+".txt") j:=0 вывод i, " набор: " EL:=0 нц пока не конец файла (fi) Фввод fi, A j:=j+1 вывод A, " " если EL=0 и A=2 то EL:=j все кц закрыть(fi) вывод "Номер первого элемента, равного 2 = ", EL, нс кц кон |
Другие задачи из раздела Series можно посмотреть здесь.
Комментарии: