Array8. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K.
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
использовать Файлы П алг Array_8 нач цел файл цел i, K, a, N, NMAX лит RES NMAX:=100 целтаб arr[1:NMAX] K:= 0 файл:=открыть на чтение ("Array8.txt") N:=0 вывод "Входные данные: " нц пока не конец файла (файл) и N < NMAX N:=N+1 Фввод файл, arr[N] вывод arr[N], ", " кц закрыть(файл) вывод нс, "Нечетные числа: " нц для i от 1 до N если mod(arr[i],2)<>0 то вывод arr[i], ", " K:=K+1 все кц вывод нс, "Количество нечетных элементов: ", K, нс кон |
Array8.txt
|
1 |
5 2 4 8 9 13 15 16 18 21 24 15 |
Другие задачи из раздела Array можно посмотреть здесь.
Комментарии: