Array9. Дан целочисленный массив размера 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 |
использовать Файлы алг Array9 (рез цел amount_number) нач файл файл1 цел b,k цел таб a[1:100] amount_number:=0 k:=0 файл1:=открыть на чтение("Array9.txt") нц пока не конец файла (файл1) k:=k+1 ввод файл1,b a[k]:=b вывод a[k]," " кц вывод " ", нс если не конец файла(файл1) то вывод "В файле остались непрочитанные данные", нс всё закрыть (файл1) цел i нц для i от k до 1 шаг -1 если mod(a[i],2)=0 то вывод a[i], " " amount_number:=amount_number+1 все кц вывод нс кон |
Файл Array9.txt:
|
1 |
33 44 55 123 456 789 2 4 6 5 |
Другие задачи из раздела Array можно посмотреть здесь.
Комментарии: