Array18. Дан массив A ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов A_K, которые удовлетворяют неравенству A_K \lt A_{10}. Если таких элементов нет, то вывести 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 25 26 27 28 29 30 31 32 33 34 35 36 |
использовать Файлы П алг Array_18 нач цел файл цел i цел AK цел N, NMax NMax:=100 целтаб arr[1:NMax] файл:=открыть на чтение ("Array18.txt") N:=0 вывод "Входные данные: " нц пока не конец файла (файл) и N < NMax N:=N+1 Фввод файл, arr[N] вывод arr[N], ", " кц закрыть(файл) AK:= 0 i:=1 нц пока AK=0 и i<N если arr[i] < arr[N] то AK:=arr[i] все i:=i+1 кц вывод нс, AK, нс кон |
Array18.txt
|
1 |
50 20 43 8 9 13 15 16 18 21 24 15 |
Другие задачи из раздела Array можно посмотреть здесь.
Комментарии: